Intel® Fortran Libraries Reference
Intel® Fortran Libraries Reference Intel® Fortran Libraries Reference
2 Intel Fortran Libraries ReferenceEND SUBROUTINEENDDRANSETDTIMEPortability Subroutine: Sets the seed for the random number generator.Module: USE IFPORTSyntaxCALL DRANSET (seed)seed(Input) REAL(8). The reset value for the seed.CompatibilityCONSOLE STANDARD GRAPHICS QUICKWIN GRAPHICS WINDOWS LIBSee Also: “RANGET”Portability Function: Returns the elapsed CPU time since the start of program execution whenfirst called, and the elapsed execution time since the last call to DTIME thereafter.Module: USE IFPORTSyntaxresult = DTIME (tarray)tarray(Output) REAL(4). A rank one array with two elements:• tarray(1) – Elapsed user time, which is time spent executing user code. This value includestime running protected Windows subsystem code.• tarray(2) – Elapsed system time, which is time spent executing privileged code (code in theWindows Executive).Results:The result type is REAL(4). The result is the total CPU time, which is the sum of tarray(1) andtarray(2). If an error occurs, –1 is returned.CompatibilityCONSOLE STANDARD GRAPHICS QUICKWIN GRAPHICS WINDOWS LIB2-72
Descriptions of the Library Routines 2See Also: the DATE_AND_TIME and CPU_TIME intrinsic procedures in the LanguageReferenceExampleUSE IFPORTREAL(4) I, TA(2)I = DTIME(TA)write(*,*) 'Program has been running for', I, 'seconds.'write(*,*) ' This includes', TA(1), 'seconds of user time and', && TA(2), 'seconds of system time.'ELLIPSE, ELLIPSE_WGraphics Functions: Draw a circle or an ellipse using the current graphics color. These functionsare only available on Windows* systems.Module: USE IFQWINSyntaxresult = ELLIPSE (control, x1, y1, x2, y2)result = ELLIPSE_W (control, wx1, wy1, wx2, wy2)control(Input) INTEGER(2). Fill flag. Can be one of the following symbolic constants:• $GFILLINTERIOR - Fills the figure using the current color and fill mask.• $GBORDER - Does not fill the figure.x1, y1(Input) INTEGER(2). Viewport coordinates for upper-left corner of bounding rectangle.x2, y2(Input) INTEGER(2). Viewport coordinates for lower-right corner of bounding rectangle.wx1, wy1(Input) REAL(8). Window coordinates for upper-left corner of bounding rectangle.wx2, wy2(Input) REAL(8). Window coordinates for lower-right corner of bounding rectangle.Results:The result type is INTEGER(2). The result is nonzero if successful; otherwise, 0. If the ellipse isclipped or partially out of bounds, the ellipse is considered successfully drawn, and the return is 1.If the ellipse is drawn completely out of bounds, the return is 0.2-73
- Page 73 and 74: Descriptions of the Library Routine
- Page 76 and 77: 2 Intel Fortran Libraries Reference
- Page 79 and 80: Descriptions of the Library Routine
- Page 82 and 83: 2 Intel Fortran Libraries Reference
- Page 84 and 85: 2 Intel Fortran Libraries Reference
- Page 86 and 87: 2 Intel Fortran Libraries Reference
- Page 88 and 89: 2 Intel Fortran Libraries Reference
- Page 90 and 91: 2 Intel Fortran Libraries Reference
- Page 92 and 93: 2 Intel Fortran Libraries Reference
- Page 94 and 95: 2 Intel Fortran Libraries Reference
- Page 96: 2 Intel Fortran Libraries Reference
- Page 100 and 101: 2 Intel Fortran Libraries Reference
- Page 102 and 103: 2 Intel Fortran Libraries Reference
- Page 104 and 105: 2 Intel Fortran Libraries Reference
- Page 106 and 107: 2 Intel Fortran Libraries Reference
- Page 108 and 109: 2 Intel Fortran Libraries Reference
- Page 110 and 111: 2 Intel Fortran Libraries Reference
- Page 112 and 113: 2 Intel Fortran Libraries Reference
- Page 114 and 115: 2 Intel Fortran Libraries Reference
- Page 116 and 117: 2 Intel Fortran Libraries Reference
- Page 118 and 119: 2 Intel Fortran Libraries Reference
- Page 120 and 121: 2 Intel Fortran Libraries Reference
- Page 122 and 123: 2 Intel Fortran Libraries Reference
- Page 126 and 127: 2 Intel Fortran Libraries Reference
- Page 128 and 129: 2 Intel Fortran Libraries Reference
- Page 130 and 131: 2 Intel Fortran Libraries Reference
- Page 132 and 133: 2 Intel Fortran Libraries Reference
- Page 134 and 135: 2 Intel Fortran Libraries Reference
- Page 136 and 137: 2 Intel Fortran Libraries Reference
- Page 138 and 139: 2 Intel Fortran Libraries Reference
- Page 140 and 141: 2 Intel Fortran Libraries Reference
- Page 142 and 143: 2 Intel Fortran Libraries Reference
- Page 144 and 145: 2 Intel Fortran Libraries Reference
- Page 146 and 147: 2 Intel Fortran Libraries Reference
- Page 148 and 149: 2 Intel Fortran Libraries Reference
- Page 150 and 151: 2 Intel Fortran Libraries Reference
- Page 152 and 153: 2 Intel Fortran Libraries Reference
- Page 154 and 155: 2 Intel Fortran Libraries Reference
- Page 156 and 157: 2 Intel Fortran Libraries Reference
- Page 158 and 159: 2 Intel Fortran Libraries Reference
- Page 160 and 161: 2 Intel Fortran Libraries Reference
- Page 162 and 163: 2 Intel Fortran Libraries Reference
- Page 164 and 165: 2 Intel Fortran Libraries Reference
- Page 166 and 167: 2 Intel Fortran Libraries Reference
- Page 168 and 169: 2 Intel Fortran Libraries Reference
- Page 170 and 171: 2 Intel Fortran Libraries Reference
- Page 172 and 173: 2 Intel Fortran Libraries Reference
2 Intel <strong>Fortran</strong> <strong>Libraries</strong> <strong>Reference</strong>END SUBROUTINEENDDRANSETDTIMEPortability Subroutine: Sets the seed for the random number generator.Module: USE IFPORTSyntaxCALL DRANSET (seed)seed(Input) REAL(8). The reset value for the seed.CompatibilityCONSOLE STANDARD GRAPHICS QUICKWIN GRAPHICS WINDOWS LIBSee Also: “RANGET”Portability Function: Returns the elapsed CPU time since the start of program execution whenfirst called, and the elapsed execution time since the last call to DTIME thereafter.Module: USE IFPORTSyntaxresult = DTIME (tarray)tarray(Output) REAL(4). A rank one array with two elements:• tarray(1) – Elapsed user time, which is time spent executing user code. This value includestime running protected Windows subsystem code.• tarray(2) – Elapsed system time, which is time spent executing privileged code (code in theWindows Executive).Results:The result type is REAL(4). The result is the total CPU time, which is the sum of tarray(1) andtarray(2). If an error occurs, –1 is returned.CompatibilityCONSOLE STANDARD GRAPHICS QUICKWIN GRAPHICS WINDOWS LIB2-72