PGI Fortranï - Servidor WWW del Cluster Ladon-Hidra

More documents

Recommendations

Info

ExamplesINTEGER SCORE(30)CHARACTER GRADE(30)WHERE ( SCORE > 60 ) GRADE = 'P'WHERE ( SCORE > 60 )GRADE = 'P'ELSE WHEREGRADE = 'F'END WHEREWRITE 90The WRITE statement is a data transfer output statement.SyntaxWRITE ([unit=] u, [,control-information) [iolist]WRITE ([unit=] u, [NML=] namelist-group [,control-information])where the UNIT= is optional and the external unit specifier u is an integer. This may also be a *indicating list-directed output.In addition to the unit specification, control-information are optional control specifications, andmay be any of those listed in the following (there are some limits on the allowed specificationsdepending on the type of output, for example, non-advancing, direct and sequential):142 Chapter 3
ADVANCE=spec spec is a character expression specifying the access method for thewrite. YES indicates advancing formatted sequential data transfer. NOindicates non-advancing formatted sequential data transfer.ERR=ss is an executable statement label for the statement used for processingan error condition.[FMT=]format format is a label of a format statement or a variable containing a formatstring.IOSTAT=ios ios is an integer variable or array element. ios becomes defined with 0if no error occurs, and a positive integer when there is an error.[NML=] namelistnamelist is a namelist groupREC=rniolistrn is a record number to read and must be a positive integer. This isonly used for direct access files.iolist must either be one of the items in an input list or any otherexpression. However a character expression involving concatenation ofan operand of variable length cannot be included in an output list unlessthe operand is the symbolic name of a constant.DescriptionWhen a WRITE statement is executed the following operations are carried out: data is transferredto the standard output device from the items specified in the output list and format specification. *The data are transferred between the specified destinations in the order specified by theinput/output list. Every item whose value is to be transferred must be defined.ExampleWRITE (6,90) NPAGE90 FORMAT('1PAGE NUMBER ',I2,16X,'SALES REPORT, Cont.')Non-character Format-specifier §If a format-specifier is a variable which is neither CHARACTER nor a simple INTEGER variable,the compiler accepts it and treats it as if the contents were character. For example, below sum istreated as a format descriptor:* If an asterisk (*) is used instead of a format identifier, the list-directed formatting rules apply.Fortran Statements 143
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 56 and 57:
90/95 This statement is either new
Page 58 and 59:
ALLOCATE 90The ALLOCATE statement i
Page 60 and 61:
DescriptionARRAY can be used in a s
Page 62 and 63:
ExamplesBACKSPACE 4BACKSPACE ( UNIT
Page 64 and 65:
ExamplesCALL CRASH! no argumentsCAL
Page 66 and 67:
Note: The data type of a symbol may
Page 68 and 69:
HPFExampleDIMENSION R(10)COMMON /HO
Page 70 and 71:
ALL1is an allocatable COMMON block
Page 72 and 73:
I = I + H..END SUBROUTINE YEND SUBR
Page 74 and 75:
DEALLOCATE 77The DEALLOCATE stateme
Page 76 and 77:
See AlsoREAD, PRINTDIMENSION 90The
Page 78 and 79:
DO (non-block)DO label [,] index =
Page 80 and 81:
DOUBLE COMPLEX § 77The DOUBLE COMP
Page 82 and 83:
SyntaxIF logical expression THENsta
Page 84 and 85:
cfbioserrsis an integer expression
Page 86 and 87:
For example:END FILE(20)END FILE(UN
Page 88 and 89:
e more than one ENTRY statement wit
Page 90 and 91:
EQUIVALENCE 77The EQUIVALENCE state
Page 92 and 93:
extrinsic-kind-keyword is the name
Page 94 and 95: if no list items are specified; in
Page 96 and 97: argumentis a symbolic name, startin
Page 98 and 99: ExampleslistASSIGN 50 TO KGO TO K(5
Page 100 and 101: IF (Block) 77The block IF statement
Page 102 and 103: INCLUDE § 77The INCLUDE statement
Page 104 and 105: FILE= finFORM= fmfin is a character
Page 106 and 107: DescriptionWhen an INQUIRE by file
Page 108 and 109: INTEGER, INTENT(OUT)::I1I1=R1END SU
Page 110 and 111: SUBROUTINE TRIG (X,F,Y)Y=F(X)RETURN
Page 112 and 113: Manipulating data using union decla
Page 114 and 115: Using the -I command-line option di
Page 116 and 117: ERR=errsFILE= finFORM=fmcharacter d
Page 118 and 119: ACCESSThe value of 'APPEND' will be
Page 120 and 121: • Case is not significant, unless
Page 122 and 123: The pointer-based variable does not
Page 124 and 125: and is roughly equivalent tocharact
Page 126 and 127: .END MODULETypeNon-executableSee Al
Page 128 and 129: • Every item whose value is to be
Page 130 and 131: DescriptionYou create memory storag
Page 132 and 133: RETURN 77The RETURN statement cause
Page 134 and 135: line option). Dummy arguments, name
Page 136 and 137: STRUCTURE § 77The STRUCTURE statem
Page 138 and 139: argumentis a symbolic name, startin
Page 140 and 141: Syntax Derived Type DefinitionTYPE
Page 142 and 143: BYTE num_itemsBYTE items(12)END MAP
Page 146 and 147: eal sumsum = 4h()accept sumand is r
Page 148 and 149: specified with the ":" character ra
Page 150 and 151: For example:SUBROUTINE YSUM1(M,B,C)
Page 152 and 153: 4.5 CM Fortran Extensions4.5.1 The
Page 154 and 155: same manner. Direct access files ar
Page 156 and 157: Table 5-1: OPEN SpecifiersSpecifier
Page 158 and 159: After data is transferred, the file
Page 160 and 161: • Repeatable editor commands whic
Page 162 and 163: On output, the B field descriptor t
Page 164 and 165: 5.5.2.8 G Format ControlThe G forma
Page 166 and 167: 5.5.2.14 O Format Control Octal Val
Page 168 and 169: The X control specifies a number of
Page 170 and 171: 5.7 List-directed formattingList-di
Page 172 and 173: Data TypeINTEGER*4INTEGER*8LOGICAL*
Page 174 and 175: • The value may be constants as a
Page 176 and 177: Table 6-1: Numeric FunctionsGeneric
Page 178 and 179: GenericNameIZEXTPurposeZero-ExtendF
Page 180 and 181: GenericNameREALPurposeConvert toREA
Page 182 and 183: GenericNamePurposeNumberof ArgsSIN
Page 184 and 185: GenericNameIANDPurposeLogicalANDNum
Page 186 and 187: Table 6-5: Fortran 90/95 Bit Manipu
Page 188 and 189: Table 6-8: Fortran 90/95 Array Redu
Page 190 and 191: Table 6-10: Fortran 90/95 Array Con
Page 192 and 193: Generic Name Purpose Numberof ArgsP
Page 194 and 195:
Table 6-17: Miscellaneous Functions
Page 196 and 197:
ArgumentsThe argument STR is the st
Page 198 and 199:
SynopsisALLOCATED(ARRAY)ArgumentThe
Page 200 and 201:
SynopsisASIND(X)ArgumentThe argumen
Page 202 and 203:
ArgumentThe argument X must be of t
Page 204 and 205:
Return ValueReturns a complex numbe
Page 206 and 207:
COUNT 90Return the number of true e
Page 208 and 209:
VALUES(6)VALUES(7)VALUES(8)holds th
Page 210 and 211:
Return ValueThe dot product. For VE
Page 212 and 213:
EXPONENT 90Return the exponent part
Page 214 and 215:
SynopsisIAND(I, J)ArgumentsThe argu
Page 216 and 217:
ArgumentThe arguments I and J must
Page 218 and 219:
INT8 § 77Converts a real value to
Page 220 and 221:
JINT § 77Converts a value to an in
Page 222 and 223:
LEN 90Returns the length of the sup
Page 224 and 225:
LLT 90Test the supplied strings to
Page 226 and 227:
LSHIFT § 77Perform a logical shift
Page 228 and 229:
If the MASK parameter is present, t
Page 230 and 231:
MINLOC 90Return the position of the
Page 232 and 233:
MVBITS 90Copies a bit sequence from
Page 234 and 235:
SynopsisNULL([PTR])ArgumentsThe opt
Page 236 and 237:
Return ValueThe return value is the
Page 238 and 239:
SynopsisREAL(A [,KIND])ArgumentsThe
Page 240 and 241:
ArgumentsThe argument X is of type
Page 242 and 243:
Return ValueThe result is an array
Page 244 and 245:
SIZE 90Returns either the total num
Page 246 and 247:
Return ValueThe return value is the
Page 248 and 249:
TRANSFER 90Return a value that has
Page 250 and 251:
VERIFY 90Verify that a character st
Page 252 and 253:
IntrinsicIALL_SUFFIXIANYIANY_PREFIX
Page 254 and 255:
Return ValueThe shifted array with
Page 256 and 257:
getloghostnmlstatputenvsymlnkttynam
Page 258 and 259:
esyndbesj0dbesj1dbesjndbesy0dbesy1d
Page 260 and 261:
Descriptionctime converts a system
Page 262 and 263:
fgetcGet character from a logical u
Page 264 and 265:
Synopsisinteger function fseek(lu,
Page 266 and 267:
Synopsisinteger function getc(ch)ch
Page 268 and 269:
Synopsisinteger function getuid()De
Page 270 and 271:
isattyIs logical unit a tty.Synopsi
Page 272 and 273:
DescriptionReturn the value which i
Page 274 and 275:
perrorPrint error message.Synopsiss
Page 276 and 277:
DescriptionThe functions rand and i
Page 278 and 279:
DescriptionReturn the index of the
Page 280 and 281:
except lstat returns information ab
Page 282 and 283:
ttynamGet name of a terminalSynopsi
Page 284 and 285:
7.2.2 VAX/VMS System SubroutinesDAT
Page 286 and 287:
destis an integer variable or array
Page 289 and 290:
8 OpenMP Directives for FortranThe
Page 291 and 292:
the parallel region redundantly. Th
Page 293 and 294:
In the presence of an IF clause, th
Page 295 and 296:
!$OMP SINGLE [Clauses]< Fortran cod
Page 297 and 298:
By default, there is an implicit ba
Page 299 and 300:
appear within a parallel region. It
Page 301 and 302:
[!$OMP SECTION]< Fortran code block
Page 303 and 304:
directive. When a common block that
Page 305 and 306:
subroutine omp_unset_lock(integer_v
Page 307 and 308:
9 HPF DirectivesHPF directives are
Page 309 and 310:
ALIGN - REALIGNThe ALIGN directive
Page 311 and 312:
See AlsoThe TEMPLATE and PROCESSORS
Page 313 and 314:
Example!HPF$!HPF$!HPF$!HPF$REAL A(1
Page 315 and 316:
See AlsoFor details on the PROCESSO
Page 317:
TypeSpecificationSee AlsoFor detail
Page 320 and 321:
IntrinsicGLOBAL_TO_LOCALGLOBAL_UBOU
Page 322 and 323:
Return ValueIf the actual argument
Page 324 and 325:
ArgumentsARRAY may be of any type;
Page 326 and 327:
Return TypeThe result is of type de
Page 328 and 329:
ArgumentsOptional argument. PROC.AR
Page 331 and 332:
IndexABSTRACT_TO_PHYSICAL..........
Page 333 and 334:
DATA ..............................
Page 335 and 336:
GETLOG ............................
Page 337 and 338:
EXP ...............................
Page 339 and 340:
F specifier........................
Page 341 and 342:
LOCAL_UNIDEX.......................
Page 343 and 344:
OpenMP Fortran Directives .........
Page 345 and 346:
DOWHILE ...........................
Page 347:
FMT specifier......................
show all

PGI Fortranï - Servidor WWW del Cluster Ladon-Hidra

Create successful ePaper yourself

Delete template?

Save as template?

PGI Fortranï - Servidor WWW del Cluster Ladon-Hidra