Searched defs:HFLRAN (Results 1 – 1 of 1) sorted by relevance
4153 SUBROUTINE HFLRAN(N,GAMMA,ISEED,X) subroutine4202 5 FORMAT('***** ERROR--THE FIRST ARGUMENT TO HFLRAN ', argument4203 1 'IS NON-POSITIVE.')4206 47 FORMAT('***** THE VALUE OF THE ARGUMENT IS ',I8,'.')4223 100 CONTINUE4225 9000 CONTINUE