Searched defs:FNRRAN (Results 1 – 1 of 1) sorted by relevance
49288 SUBROUTINE FNRRAN(N,U,SD,ISEED,X) subroutine49357 1'FNRRAN SUBROUTINE IS NON-POSITIVE *****') argument49358 47 FORMAT('***** THE VALUE OF THE ARGUMENT IS ',I8,' *****')49378 210 U2=Y(2)49379 220 ARG1=-2.0*LOG(U1)49387 200 CONTINUE49398 400 CONTINUE