HP Fortran for OpenVMS
Language Reference Manual

Chapter 6

6 Dynamic Allocation

     6.1     Overview

     6.2     ALLOCATE Statement

         6.2.1         Allocation of Allocatable Arrays

         6.2.2         Allocation of Pointer Targets

     6.3     DEALLOCATE Statement

         6.3.1         Deallocation of Allocatable Arrays

         6.3.2         Deallocation of Pointer Targets

     6.4     NULLIFY Statement

Chapter 7

7 Execution Control

     7.1     Overview

     7.2     Branch Statements

         7.2.1         Unconditional GO TO Statement

         7.2.2         Computed GO TO Statement

         7.2.3          ASSIGN and Assigned GO TO Statements

             7.2.3.1              ASSIGN Statement

             7.2.3.2              Assigned GO TO Statement

         7.2.4         Arithmetic IF Statement

     7.3     CALL Statement

     7.4     CASE Construct

     7.5     CONTINUE Statement

     7.6     DO Constructs

         7.6.1         Forms for DO Constructs

         7.6.2         Execution of DO Constructs

             7.6.2.1             Iteration Loop Control

             7.6.2.2             Nested DO Constructs

             7.6.2.3              Extended Range

         7.6.3         DO WHILE Statement

         7.6.4         CYCLE Statement

         7.6.5         EXIT Statement

     7.7     END Statement

     7.8     IF Construct and Statement

         7.8.1         IF Construct

         7.8.2         IF Statement

     7.9      PAUSE Statement

     7.10     RETURN Statement

     7.11     STOP Statement

Chapter 8

8 Program Units and Procedures

     8.1     Overview

     8.2     Main Program

     8.3     Modules and Module Procedures

         8.3.1         Module References

         8.3.2         USE Statement

     8.4     Block Data Program Units

     8.5     Functions, Subroutines, and Statement Functions

         8.5.1         General Rules for Function and Subroutine Subprograms

             8.5.1.1             Recursive Procedures

             8.5.1.2             Pure Procedures

             8.5.1.3             Elemental Procedures

         8.5.2         Functions

             8.5.2.1             RESULT Keyword

             8.5.2.2             Function References

         8.5.3         Subroutines

         8.5.4         Statement Functions

     8.6     External Procedures

     8.7     Internal Procedures

     8.8     Argument Association

         8.8.1         Optional Arguments

             8.8.1.1             Using the PRESENT Intrinsic Function

             8.8.1.2             Using the IARGCOUNT Intrinsic Function

         8.8.2         Array Arguments

         8.8.3         Pointer Arguments

         8.8.4         Assumed-Length Character Arguments

         8.8.5         Character Constant and Hollerith Arguments

         8.8.6         Alternate Return Arguments

         8.8.7         Dummy Procedure Arguments

         8.8.8         References to Generic Procedures

             8.8.8.1             References to Generic Intrinsic Functions

             8.8.8.2             References to Elemental Intrinsic Procedures

         8.8.9         References to Non-Fortran Procedures

             8.8.9.1              %DESCR, %REF, and %VAL Argument List Functions

             8.8.9.2              %LOC Function

     8.9     Procedure Interfaces

         8.9.1         Determining When Procedures Require Explicit Interfaces

         8.9.2         Defining Explicit Interfaces

         8.9.3         Defining Generic Names for Procedures

         8.9.4         Defining Generic Operators

         8.9.5         Defining Generic Assignment

     8.10     CONTAINS Statement

     8.11     ENTRY Statement

         8.11.1         ENTRY Statements in Function Subprograms

         8.11.2         ENTRY Statements in Subroutine Subprograms

Chapter 9

9 Intrinsic Procedures

     9.1     Overview of Intrinsic Procedures

     9.2     Argument Keywords in Intrinsic Procedures

     9.3     Categories of Intrinsic Procedures

         9.3.1         Categories of Intrinsic Functions

         9.3.2         Intrinsic Subroutines

         9.3.3         Bit Functions

     9.4     Descriptions of Intrinsic Procedures

         9.4.1         ABS (A)

         9.4.2         ACHAR (I)

         9.4.3         ACOS (X)

         9.4.4         ACOSD (X)

         9.4.5         ADJUSTL (STRING)

         9.4.6         ADJUSTR (STRING)

         9.4.7         AIMAG (Z)

         9.4.8         AINT (A [,KIND])

         9.4.9         ALL (MASK [,DIM])

         9.4.10         ALLOCATED (ARRAY)

         9.4.11         ANINT (A [,KIND])

         9.4.12         ANY (MASK [,DIM])

         9.4.13         ASIN (X)

         9.4.14         ASIND (X)

         9.4.15         ASM (STRING [,A,...]) (Alpha only)

         9.4.16         ASSOCIATED (POINTER [,TARGET])

         9.4.17         ATAN (X)

         9.4.18         ATAND (X)

         9.4.19         ATAN2 (Y, X)

         9.4.20         ATAN2D (Y, X)

         9.4.21         BIT_SIZE (I)

         9.4.22         BTEST (I, POS)

         9.4.23         CEILING (A [,KIND])

         9.4.24         CHAR (I [,KIND])

         9.4.25         CMPLX (X [,Y] [,KIND])

         9.4.26         CONJG (Z)

         9.4.27         COS (X)

         9.4.28         COSD (X)

         9.4.29         COSH (X)

         9.4.30         COTAN (X)

         9.4.31          COTAND (X)

         9.4.32         COUNT (MASK [,DIM] [,KIND])

         9.4.33         CPU_TIME (TIME)

         9.4.34         CSHIFT (ARRAY, SHIFT [,DIM])

         9.4.35          DATE (BUF)

         9.4.36         DATE_AND_TIME ([DATE] [,TIME] [,ZONE] [,VALUES])

         9.4.37         DBLE (A)

         9.4.38          DCMPLX (X [,Y])

         9.4.39          DFLOAT (A)

         9.4.40         DIGITS (X)

         9.4.41         DIM (X, Y)

         9.4.42         DOT_PRODUCT (VECTOR_A, VECTOR_B)

         9.4.43         DPROD (X, Y)

         9.4.44          DREAL (A)

         9.4.45          EOF (A)

         9.4.46         EOSHIFT (ARRAY, SHIFT [,BOUNDARY] [,DIM])

         9.4.47         EPSILON (X)

         9.4.48          ERRSNS ([IO_ERR] [,SYS_ERR] [,STAT] [,UNIT] [,COND])

         9.4.49          EXIT ([STATUS])

         9.4.50         EXP (X)

         9.4.51         EXPONENT (X)

         9.4.52         FLOOR (A [,KIND])

         9.4.53          FP_CLASS (X)

         9.4.54         FRACTION (X)

         9.4.55          FREE (A)

         9.4.56         HUGE (X)

         9.4.57         IACHAR (C)

         9.4.58         IAND (I, J)

         9.4.59          IARGCOUNT ( )

         9.4.60          IARGPTR ( )

         9.4.61          IBCHNG (I, POS)

         9.4.62         IBCLR (I, POS)

         9.4.63         IBITS (I, POS, LEN)

         9.4.64         IBSET (I, POS)

         9.4.65         ICHAR (C)

         9.4.66          IDATE (I, J, K)

         9.4.67         IEOR (I, J)

         9.4.68          ILEN (I)

         9.4.69         INDEX (STRING, SUBSTRING [,BACK] [,KIND])

         9.4.70         INT (A [,KIND])

         9.4.71          INT_PTR_KIND( )

         9.4.72         IOR (I, J)

         9.4.73          ISHA (I, SHIFT)

         9.4.74          ISHC (I, SHIFT)

         9.4.75         ISHFT (I, SHIFT)

         9.4.76         ISHFTC (I, SHIFT [,SIZE])

         9.4.77          ISHL (I, SHIFT)

         9.4.78          ISNAN (X)

         9.4.79         KIND (X)

         9.4.80         LBOUND (ARRAY [,DIM] [,KIND])

         9.4.81          LEADZ (I)

         9.4.82         LEN (STRING [,KIND])

         9.4.83         LEN_TRIM (STRING [,KIND])

         9.4.84         LGE (STRING_A, STRING_B)

         9.4.85         LGT (STRING_A, STRING_B)

         9.4.86         LLE (STRING_A, STRING_B)

         9.4.87         LLT (STRING_A, STRING_B)

         9.4.88          LOC (X)

         9.4.89         LOG (X)

         9.4.90         LOG10 (X)

         9.4.91         LOGICAL (L [,KIND])

         9.4.92          MALLOC (I)

         9.4.93         MATMUL (MATRIX_A, MATRIX_B)

         9.4.94         MAX (A1, A2 [,A3,...])

         9.4.95         MAXEXPONENT (X)

         9.4.96         MAXLOC (ARRAY [,DIM] [,MASK] [,KIND])

         9.4.97         MAXVAL (ARRAY [,DIM] [,MASK])

         9.4.98         MERGE (TSOURCE, FSOURCE, MASK)

         9.4.99         MIN (A1, A2 [,A3,...])

         9.4.100         MINEXPONENT (X)

         9.4.101         MINLOC (ARRAY [,DIM] [,MASK] [,KIND])

         9.4.102         MINVAL (ARRAY [,DIM] [,MASK])

         9.4.103         MOD (A, P)

         9.4.104         MODULO (A, P)

         9.4.105         MULT_HIGH (I, J)

         9.4.106         MVBITS (FROM, FROMPOS, LEN, TO, TOPOS)

         9.4.107         MY_PROCESSOR ( )

         9.4.108         NEAREST (X, S)

         9.4.109         NINT (A [,KIND])

         9.4.110         NOT (I)

         9.4.111         NULL ([MOLD])

         9.4.112         NUMBER_OF_PROCESSORS ([DIM])

         9.4.113         NWORKERS ( )

         9.4.114         PACK (ARRAY, MASK [,VECTOR])

         9.4.115         POPCNT (I)

         9.4.116         POPPAR (I)

         9.4.117         PRECISION (X)

         9.4.118         PRESENT (A)

         9.4.119         PROCESSORS_SHAPE ( )

         9.4.120         PRODUCT (ARRAY [,DIM] [,MASK])

         9.4.121         QCMPLX (X [,Y])

         9.4.122         QEXT (A)

         9.4.123         QFLOAT (A)

         9.4.124         QREAL (A)

         9.4.125         RADIX (X)

         9.4.126         RAN (I)

         9.4.127         RANDOM_NUMBER (HARVEST)

         9.4.128         RANDOM_SEED ([SIZE] [,PUT] [,GET])

         9.4.129         RANDU (I1, I2, X)

         9.4.130         RANGE (X)

         9.4.131         REAL (A [,KIND])

         9.4.132         REPEAT (STRING, NCOPIES)

         9.4.133         RESHAPE (SOURCE, SHAPE [,PAD] [,ORDER])

         9.4.134         RRSPACING (X)

         9.4.135         SCALE (X, I)

         9.4.136         SCAN (STRING, SET [,BACK] [,KIND])

         9.4.137         SECNDS (X)

         9.4.138         SELECTED_INT_KIND (R)

         9.4.139         SELECTED_REAL_KIND ([P] [,R])

         9.4.140         SET_EXPONENT (X, I)

         9.4.141         SHAPE (SOURCE [,KIND])

         9.4.142         SIGN (A, B)

         9.4.143         SIN (X)

         9.4.144          SIND (X)

         9.4.145         SINH (X)

         9.4.146         SIZE (ARRAY [,DIM] [,KIND])

         9.4.147         SIZEOF (X)

         9.4.148         SPACING (X)

         9.4.149         SPREAD (SOURCE, DIM, NCOPIES)

         9.4.150         SQRT (X)

         9.4.151         SUM (ARRAY [,DIM] [,MASK])

         9.4.152         SYSTEM_CLOCK ([COUNT] [,COUNT_RATE] [,COUNT_MAX])

         9.4.153         TAN (X)

         9.4.154          TAND (X)

         9.4.155         TANH (X)

         9.4.156         TIME (BUF)

         9.4.157         TINY (X)

         9.4.158         TRAILZ (I)

         9.4.159         TRANSFER (SOURCE, MOLD [,SIZE])

         9.4.160         TRANSPOSE (MATRIX)

         9.4.161         TRIM (STRING)

         9.4.162         UBOUND (ARRAY [,DIM] [,KIND])

         9.4.163         UNPACK (VECTOR, MASK, FIELD)

         9.4.164         VERIFY (STRING, SET [,BACK] [,KIND])

         9.4.165         ZEXT (X [,KIND])

Chapter 6
6	Dynamic Allocation
6.1	Overview
6.2	ALLOCATE Statement
6.2.1	Allocation of Allocatable Arrays
6.2.2	Allocation of Pointer Targets
6.3	DEALLOCATE Statement
6.3.1	Deallocation of Allocatable Arrays
6.3.2	Deallocation of Pointer Targets
6.4	NULLIFY Statement
Chapter 7
7	Execution Control
7.1	Overview
7.2	Branch Statements
7.2.1	Unconditional GO TO Statement
7.2.2	Computed GO TO Statement
7.2.3	ASSIGN and Assigned GO TO Statements
7.2.3.1	ASSIGN Statement
7.2.3.2	Assigned GO TO Statement
7.2.4	Arithmetic IF Statement
7.3	CALL Statement
7.4	CASE Construct
7.5	CONTINUE Statement
7.6	DO Constructs
7.6.1	Forms for DO Constructs
7.6.2	Execution of DO Constructs
7.6.2.1	Iteration Loop Control
7.6.2.2	Nested DO Constructs
7.6.2.3	Extended Range
7.6.3	DO WHILE Statement
7.6.4	CYCLE Statement
7.6.5	EXIT Statement
7.7	END Statement
7.8	IF Construct and Statement
7.8.1	IF Construct
7.8.2	IF Statement
7.9	PAUSE Statement
7.10	RETURN Statement
7.11	STOP Statement
Chapter 8
8	Program Units and Procedures
8.1	Overview
8.2	Main Program
8.3	Modules and Module Procedures
8.3.1	Module References
8.3.2	USE Statement
8.4	Block Data Program Units
8.5	Functions, Subroutines, and Statement Functions
8.5.1	General Rules for Function and Subroutine Subprograms
8.5.1.1	Recursive Procedures
8.5.1.2	Pure Procedures
8.5.1.3	Elemental Procedures
8.5.2	Functions
8.5.2.1	RESULT Keyword
8.5.2.2	Function References
8.5.3	Subroutines
8.5.4	Statement Functions
8.6	External Procedures
8.7	Internal Procedures
8.8	Argument Association
8.8.1	Optional Arguments
8.8.1.1	Using the PRESENT Intrinsic Function
8.8.1.2	Using the IARGCOUNT Intrinsic Function
8.8.2	Array Arguments
8.8.3	Pointer Arguments
8.8.4	Assumed-Length Character Arguments
8.8.5	Character Constant and Hollerith Arguments
8.8.6	Alternate Return Arguments
8.8.7	Dummy Procedure Arguments
8.8.8	References to Generic Procedures
8.8.8.1	References to Generic Intrinsic Functions
8.8.8.2	References to Elemental Intrinsic Procedures
8.8.9	References to Non-Fortran Procedures
8.8.9.1	%DESCR, %REF, and %VAL Argument List Functions
8.8.9.2	%LOC Function
8.9	Procedure Interfaces
8.9.1	Determining When Procedures Require Explicit Interfaces
8.9.2	Defining Explicit Interfaces
8.9.3	Defining Generic Names for Procedures
8.9.4	Defining Generic Operators
8.9.5	Defining Generic Assignment
8.10	CONTAINS Statement
8.11	ENTRY Statement
8.11.1	ENTRY Statements in Function Subprograms
8.11.2	ENTRY Statements in Subroutine Subprograms
Chapter 9
9	Intrinsic Procedures
9.1	Overview of Intrinsic Procedures
9.2	Argument Keywords in Intrinsic Procedures
9.3	Categories of Intrinsic Procedures
9.3.1	Categories of Intrinsic Functions
9.3.2	Intrinsic Subroutines
9.3.3	Bit Functions
9.4	Descriptions of Intrinsic Procedures
9.4.1	ABS (A)
9.4.2	ACHAR (I)
9.4.3	ACOS (X)
9.4.4	ACOSD (X)
9.4.5	ADJUSTL (STRING)
9.4.6	ADJUSTR (STRING)
9.4.7	AIMAG (Z)
9.4.8	AINT (A [,KIND])
9.4.9	ALL (MASK [,DIM])
9.4.10	ALLOCATED (ARRAY)
9.4.11	ANINT (A [,KIND])
9.4.12	ANY (MASK [,DIM])
9.4.13	ASIN (X)
9.4.14	ASIND (X)
9.4.15	ASM (STRING [,A,...]) (Alpha only)
9.4.16	ASSOCIATED (POINTER [,TARGET])
9.4.17	ATAN (X)
9.4.18	ATAND (X)
9.4.19	ATAN2 (Y, X)
9.4.20	ATAN2D (Y, X)
9.4.21	BIT_SIZE (I)
9.4.22	BTEST (I, POS)
9.4.23	CEILING (A [,KIND])
9.4.24	CHAR (I [,KIND])
9.4.25	CMPLX (X [,Y] [,KIND])
9.4.26	CONJG (Z)
9.4.27	COS (X)
9.4.28	COSD (X)
9.4.29	COSH (X)
9.4.30	COTAN (X)
9.4.31	COTAND (X)
9.4.32	COUNT (MASK [,DIM] [,KIND])
9.4.33	CPU_TIME (TIME)
9.4.34	CSHIFT (ARRAY, SHIFT [,DIM])
9.4.35	DATE (BUF)
9.4.36	DATE_AND_TIME ([DATE] [,TIME] [,ZONE] [,VALUES])
9.4.37	DBLE (A)
9.4.38	DCMPLX (X [,Y])
9.4.39	DFLOAT (A)
9.4.40	DIGITS (X)
9.4.41	DIM (X, Y)
9.4.42	DOT_PRODUCT (VECTOR_A, VECTOR_B)
9.4.43	DPROD (X, Y)
9.4.44	DREAL (A)
9.4.45	EOF (A)
9.4.46	EOSHIFT (ARRAY, SHIFT [,BOUNDARY] [,DIM])
9.4.47	EPSILON (X)
9.4.48	ERRSNS ([IO_ERR] [,SYS_ERR] [,STAT] [,UNIT] [,COND])
9.4.49	EXIT ([STATUS])
9.4.50	EXP (X)
9.4.51	EXPONENT (X)
9.4.52	FLOOR (A [,KIND])
9.4.53	FP_CLASS (X)
9.4.54	FRACTION (X)
9.4.55	FREE (A)
9.4.56	HUGE (X)
9.4.57	IACHAR (C)
9.4.58	IAND (I, J)
9.4.59	IARGCOUNT ( )
9.4.60	IARGPTR ( )
9.4.61	IBCHNG (I, POS)
9.4.62	IBCLR (I, POS)
9.4.63	IBITS (I, POS, LEN)
9.4.64	IBSET (I, POS)
9.4.65	ICHAR (C)
9.4.66	IDATE (I, J, K)
9.4.67	IEOR (I, J)
9.4.68	ILEN (I)
9.4.69	INDEX (STRING, SUBSTRING [,BACK] [,KIND])
9.4.70	INT (A [,KIND])
9.4.71	INT_PTR_KIND( )
9.4.72	IOR (I, J)
9.4.73	ISHA (I, SHIFT)
9.4.74	ISHC (I, SHIFT)
9.4.75	ISHFT (I, SHIFT)
9.4.76	ISHFTC (I, SHIFT [,SIZE])
9.4.77	ISHL (I, SHIFT)
9.4.78	ISNAN (X)
9.4.79	KIND (X)
9.4.80	LBOUND (ARRAY [,DIM] [,KIND])
9.4.81	LEADZ (I)
9.4.82	LEN (STRING [,KIND])
9.4.83	LEN_TRIM (STRING [,KIND])
9.4.84	LGE (STRING_A, STRING_B)
9.4.85	LGT (STRING_A, STRING_B)
9.4.86	LLE (STRING_A, STRING_B)
9.4.87	LLT (STRING_A, STRING_B)
9.4.88	LOC (X)
9.4.89	LOG (X)
9.4.90	LOG10 (X)
9.4.91	LOGICAL (L [,KIND])
9.4.92	MALLOC (I)
9.4.93	MATMUL (MATRIX_A, MATRIX_B)
9.4.94	MAX (A1, A2 [,A3,...])
9.4.95	MAXEXPONENT (X)
9.4.96	MAXLOC (ARRAY [,DIM] [,MASK] [,KIND])
9.4.97	MAXVAL (ARRAY [,DIM] [,MASK])
9.4.98	MERGE (TSOURCE, FSOURCE, MASK)
9.4.99	MIN (A1, A2 [,A3,...])
9.4.100	MINEXPONENT (X)
9.4.101	MINLOC (ARRAY [,DIM] [,MASK] [,KIND])
9.4.102	MINVAL (ARRAY [,DIM] [,MASK])
9.4.103	MOD (A, P)
9.4.104	MODULO (A, P)
9.4.105	MULT_HIGH (I, J)
9.4.106	MVBITS (FROM, FROMPOS, LEN, TO, TOPOS)
9.4.107	MY_PROCESSOR ( )
9.4.108	NEAREST (X, S)
9.4.109	NINT (A [,KIND])
9.4.110	NOT (I)
9.4.111	NULL ([MOLD])
9.4.112	NUMBER_OF_PROCESSORS ([DIM])
9.4.113	NWORKERS ( )
9.4.114	PACK (ARRAY, MASK [,VECTOR])
9.4.115	POPCNT (I)
9.4.116	POPPAR (I)
9.4.117	PRECISION (X)
9.4.118	PRESENT (A)
9.4.119	PROCESSORS_SHAPE ( )
9.4.120	PRODUCT (ARRAY [,DIM] [,MASK])
9.4.121	QCMPLX (X [,Y])
9.4.122	QEXT (A)
9.4.123	QFLOAT (A)
9.4.124	QREAL (A)
9.4.125	RADIX (X)
9.4.126	RAN (I)
9.4.127	RANDOM_NUMBER (HARVEST)
9.4.128	RANDOM_SEED ([SIZE] [,PUT] [,GET])
9.4.129	RANDU (I1, I2, X)
9.4.130	RANGE (X)
9.4.131	REAL (A [,KIND])
9.4.132	REPEAT (STRING, NCOPIES)
9.4.133	RESHAPE (SOURCE, SHAPE [,PAD] [,ORDER])
9.4.134	RRSPACING (X)
9.4.135	SCALE (X, I)
9.4.136	SCAN (STRING, SET [,BACK] [,KIND])
9.4.137	SECNDS (X)
9.4.138	SELECTED_INT_KIND (R)
9.4.139	SELECTED_REAL_KIND ([P] [,R])
9.4.140	SET_EXPONENT (X, I)
9.4.141	SHAPE (SOURCE [,KIND])
9.4.142	SIGN (A, B)
9.4.143	SIN (X)
9.4.144	SIND (X)
9.4.145	SINH (X)
9.4.146	SIZE (ARRAY [,DIM] [,KIND])
9.4.147	SIZEOF (X)
9.4.148	SPACING (X)
9.4.149	SPREAD (SOURCE, DIM, NCOPIES)
9.4.150	SQRT (X)
9.4.151	SUM (ARRAY [,DIM] [,MASK])
9.4.152	SYSTEM_CLOCK ([COUNT] [,COUNT_RATE] [,COUNT_MAX])
9.4.153	TAN (X)
9.4.154	TAND (X)
9.4.155	TANH (X)
9.4.156	TIME (BUF)
9.4.157	TINY (X)
9.4.158	TRAILZ (I)
9.4.159	TRANSFER (SOURCE, MOLD [,SIZE])
9.4.160	TRANSPOSE (MATRIX)
9.4.161	TRIM (STRING)
9.4.162	UBOUND (ARRAY [,DIM] [,KIND])
9.4.163	UNPACK (VECTOR, MASK, FIELD)
9.4.164	VERIFY (STRING, SET [,BACK] [,KIND])
9.4.165	ZEXT (X [,KIND])

Contents

Index

HP Fortran for OpenVMSLanguage Reference Manual

HP Fortran for OpenVMS
Language Reference Manual