sPhenix code displayed by LXR |
|
|
|
|||
File indexing completed on 2025-08-05 08:15:42
0001 c 0002 C 0003 C 0004 FUNCTION GMIN(N) 0005 IMPLICIT REAL*8(A-H,O-Z) 0006 GA=0. 0007 IF(N.LE.2) GO TO 20 0008 DO 10 I=1,N-1 0009 Z=I 0010 GA=GA+DLOG(Z) 0011 10 CONTINUE 0012 20 GMIN=GA 0013 RETURN 0014 END
| [ Source navigation ] | [ Diff markup ] | [ Identifier search ] | [ general search ] |
|
This page was automatically generated by the 2.3.7 LXR engine. The LXR team |
|