- Page 2:
While every precaution has been tak
- Page 8 and 9: Table 6-18: HPF Intrinsics and Libr
- Page 10 and 11: • ISO/IEC 1539 : 1991, Informatio
- Page 12 and 13: non-printing characters, such as TA
- Page 14 and 15: 1 Language OverviewThis chapter des
- Page 16 and 17: Table 1-1: Order of StatementsOPTIO
- Page 18 and 19: 1.3 Free Form FormattingUsing free
- Page 20 and 21: A continuation line is indicated by
- Page 22 and 23: The following examples are invalid
- Page 24 and 25: Operators of equal rank are evaluat
- Page 26 and 27: 1.7.3 Relational ExpressionsA relat
- Page 28 and 29: 1.9 Assignment StatementsA Fortran
- Page 30 and 31: defined in the character expression
- Page 33 and 34: 2 Fortran Data TypesEvery Fortran e
- Page 35 and 36: Table 2-3: Data Type ExtensionsType
- Page 37 and 38: [s]d 1 d 2 ...d n [ _ kind-paramete
- Page 39 and 40: 2.2.5 Complex ConstantsA complex co
- Page 41 and 42: CHARACTER(LEN=20) FIRST, LAST, MIDD
- Page 43 and 44: 2.4.4 Character SubstringA characte
- Page 45 and 46: • A constant is always either 32
- Page 47 and 48: STRUCTURE [/structure_name/][field_
- Page 49 and 50: RECORD /person/ population(2), me..
- Page 51 and 52: BYTE items(12)END MAPEND UNIONEND S
- Page 53: declarator, modifying its value dur
- Page 57 and 58: Non-character Format-specifier §If
- Page 59 and 60: For an ALLOCATABLE array, the array
- Page 61 and 62: • A statement label in the same p
- Page 63 and 64: nameclistis the symbolic name of a
- Page 65 and 66: See AlsoSELECT CASECHARACTER 90The
- Page 67 and 68: DescriptionA unit may be the subjec
- Page 69 and 70: machines. Note that this may also a
- Page 71 and 72: nameclistis the symbolic name of a
- Page 73 and 74: IF (B.EQ.5) EXITEND DOSee AlsoEXIT,
- Page 75 and 76: PRINT *, 'should be 1', ISDEALLOCAT
- Page 77 and 78: ExamplesDIMENSION ARRAY1(3:10), ARR
- Page 79 and 80: DOA(I)=A(I)+1IF (A(I).EQ.4) EXITEND
- Page 81 and 82: DOUBLE PRECISION 90The DOUBLE PRECI
- Page 83 and 84: M=2ELSE IF (I.LT.16) THENM=3END IFE
- Page 85 and 86: DescriptionThe END statement termin
- Page 87 and 88: TYPE=0END SELECTSyntax Extension -
- Page 89 and 90: COMPLEX*16CHARACTERIf the function
- Page 91 and 92: SyntaxEXIT [do-construct-name]Examp
- Page 93 and 94: First, compute the valid set of ind
- Page 95 and 96: Non-character Format-specifier §If
- Page 97 and 98: ExamplesFUNCTION FRED(A,B,C)REAL X.
- Page 99 and 100: GO TO 10070 X=A*B ! Come here if A
- Page 101 and 102: Exampleslogical-expressionstatement
- Page 103 and 104: INQUIRE 77An INQUIRE statement has
- Page 105 and 106:
POSITION= pos_charpos_char is a cha
- Page 107 and 108:
INTEGER variable is 4 bytes. With t
- Page 109 and 110:
INTRINSIC 77An INTRINSIC statement
- Page 111 and 112:
DescriptionLogical type declaration
- Page 113 and 114:
SyntaxMODULE [name][specification-p
- Page 115 and 116:
ExampleNULLIFY (PTR1)See AlsoALLOCA
- Page 117 and 118:
DescriptionThe record length, RECL=
- Page 119 and 120:
See AlsoINTENTOPTIONS § 77The OPTI
- Page 121 and 122:
The PAUSE statement stops the progr
- Page 123 and 124:
PRINT 77The PRINT statement is a da
- Page 125 and 126:
SyntaxPROGRAM [name]...END [ PROGRA
- Page 127 and 128:
In addition control-information is
- Page 129 and 130:
Syntax ExtensionnREAL [*n] name [*n
- Page 131 and 132:
SyntaxRECURSIVE [type-specification
- Page 133 and 134:
REWIND 77The REWIND statement posit
- Page 135 and 136:
CASE DEFAULTTYPE=0END SELECTSEQUENC
- Page 137 and 138:
STRUCTURE /account/INTEGER typetagU
- Page 139 and 140:
See AlsoALLOCATABLE, POINTERTHEN 77
- Page 141 and 142:
MAPfield_declaration[field_declarat
- Page 143 and 144:
SyntaxVOLATILE nitem [, nitem ...]n
- Page 145 and 146:
ADVANCE=spec spec is a character ex
- Page 147 and 148:
4 Fortran ArraysFortran arrays are
- Page 149 and 150:
4.2.1 Explicit Shape ArraysExplicit
- Page 151 and 152:
Note that NUMC is rank 1 and NUMB i
- Page 153 and 154:
5 Input and Output FormattingInput,
- Page 155 and 156:
In addition list may contain one of
- Page 157 and 158:
SpecifierDescriptionPOSITION=pos Sp
- Page 159 and 160:
where the items in iolist are eithe
- Page 161 and 162:
5.5.2.1 A Format Control - Characte
- Page 163 and 164:
For input the same conditions apply
- Page 165 and 166:
5.5.2.11 Quote Format ControlQuote
- Page 167 and 168:
produces:25.00 2500.00 2500.00 2500
- Page 169 and 170:
On input from a file connected for
- Page 171 and 172:
Commas may be used to separate the
- Page 173 and 174:
5.7.3 Commas in External FieldUse o
- Page 175 and 176:
6 Fortran IntrinsicsThis chapter li
- Page 177 and 178:
GenericNameDBLEDCMPLXDIMFLOORPurpos
- Page 179 and 180:
GenericNamePurposeNumberof ArgsMIN
- Page 181 and 182:
GenericNamePurposeNumberof ArgsATAN
- Page 183 and 184:
Generic Name Purpose Numberof ArgsS
- Page 185 and 186:
GenericNameISHFTCLSHIFTNEQVNOTORRSH
- Page 187 and 188:
GenericNameLEN_TRIMLGELGTLLELLTLOGI
- Page 189 and 190:
GenericNamePurposeNumberof ArgsArgu
- Page 191 and 192:
Generic Name Purpose Numberof ArgsU
- Page 193 and 194:
Table 6-14: Fortran 90/95 String In
- Page 195 and 196:
ArgumentThe argument I must be of t
- Page 197 and 198:
AINT 77Truncate the supplied value
- Page 199 and 200:
ANY 90Determine if any value in the
- Page 201 and 202:
Return ValueThe real value represen
- Page 203 and 204:
SynopsisCEILING(A [,KIND])ArgumentT
- Page 205 and 206:
ArgumentThe argument X must be of t
- Page 207 and 208:
CSHIFT 90Perform a circular shift o
- Page 209 and 210:
DIGITS 90Returns the number of sign
- Page 211 and 212:
EPSILON 90Return the smallest numbe
- Page 213 and 214:
ArgumentThe argument X is a real nu
- Page 215 and 216:
IBSET 77Set one bit to one.Synopsis
- Page 217 and 218:
Return ValueThe function returns an
- Page 219 and 220:
Return ValueThe return value is of
- Page 221 and 222:
Return ValueThe result is an intege
- Page 223 and 224:
Return ValueThe function returns a
- Page 225 and 226:
ArgumentThe argument X is of type r
- Page 227 and 228:
ArgumentsAny arguments after the fi
- Page 229 and 230:
ArgumentsTSOURCE is the source that
- Page 231 and 232:
Return ValueThe return value is a s
- Page 233 and 234:
ArgumentsThe arguments M and N may
- Page 235 and 236:
PRECISION 90Return the decimal prec
- Page 237 and 238:
each element of the seed array are
- Page 239 and 240:
Return ValueThe return value is an
- Page 241 and 242:
SELECTED_REAL_KIND 90Returns a valu
- Page 243 and 244:
SIN 77Return the value of the sine
- Page 245 and 246:
ArgumentsThe argument SOURCE may be
- Page 247 and 248:
TAND 77Return the tangent of the sp
- Page 249 and 250:
Return ValueThe return value is the
- Page 251 and 252:
Return ValueThe return value is an
- Page 253 and 254:
IntrinsicPRODUCT_SCATTERPRODUCT_SUF
- Page 255 and 256:
7 3F Functions and VAXSubroutinesTh
- Page 257 and 258:
DescriptionThe access function if t
- Page 259 and 260:
chdirChange default directory.Synop
- Page 261 and 262:
Synopsisreal function etime(tarray)
- Page 263 and 264:
Descriptionfork creates a copy of t
- Page 265 and 266:
DescriptionReturn the system error
- Page 267 and 268:
getgidGet group id.Synopsisinteger
- Page 269 and 270:
Synopsissubroutine idate(im, id, iy
- Page 271 and 272:
linkMake linkSynopsisinteger functi
- Page 273 and 274:
Descriptionmclock returns the sum o
- Page 275 and 276:
qsortQuick sort.Synopsissubroutine
- Page 277 and 278:
Descriptionflminflmaxffracdflmindfl
- Page 279 and 280:
The return value is the previous ac
- Page 281 and 282:
Synopsisinteger function system(str
- Page 283 and 284:
Descriptionwait causes its caller t
- Page 285 and 286:
IARGCThe IARGC subroutine returns t
- Page 287:
X = SECNDS(0.0)...... ! Code to be
- Page 290 and 291:
the first clause. Clauses on direct
- Page 292 and 293:
The DEFAULT clause lets you specify
- Page 294 and 295:
MX = MAX(MX, LMX)!$OMP END CRITICAL
- Page 296 and 297:
REDUCTION({operator | intrinsic } :
- Page 298 and 299:
• When SCHEDULE (GUIDED, chunk) i
- Page 300 and 301:
8.10 SECTIONS ... END SECTIONSThe O
- Page 302 and 303:
• The ORDERED code block must be
- Page 304 and 305:
integer function omp_get_num_procs(
- Page 306 and 307:
MPSTKZ increases the size of the st
- Page 308 and 309:
9.2 HPF Directive SummaryTable 9-1:
- Page 310 and 311:
TypeSpecificationDefaultThe default
- Page 312 and 313:
DISTRIBUTE - REDISTRIBUTEThe DISTRI
- Page 314 and 315:
Syntax!HPF$ INHERIT dummy-argument-
- Page 316 and 317:
SEQUENCEThe SEQUENCE directive allo
- Page 319 and 320:
Appendix A HPF_LOCALThis appendix l
- Page 321 and 322:
GLOBAL_ALIGNMENTThis has the same i
- Page 323 and 324:
ArgumentsARRAY may be of any type.
- Page 325 and 326:
DIM (optional) must be scalar and o
- Page 327 and 328:
Return ValueThe value of LOCAL_LIND
- Page 329:
PHYSICAL_TO_ABSTRACTSubroutine retu
- Page 332 and 333:
ERR ...............................
- Page 334 and 335:
ENDFUNCTION........................
- Page 336 and 337:
%LOC ..............................
- Page 338 and 339:
REPEAT ............................
- Page 340 and 341:
GLOBAL_DISTRIBUTION ...............
- Page 342 and 343:
INTRINSIC .........................
- Page 344 and 345:
REAL...............................
- Page 346 and 347:
PRIVATE............................