Searched defs:DPKAR3 (Results 1 – 1 of 1) sorted by relevance
| /dports/graphics/dataplot/dataplot-2c1b27601a3b7523449de612613eadeead9a8f70/src/ |
| H A D | dp17.F | 20030 SUBROUTINE DPKAR3(Y,N,TEMP1,MAXNXT, subroutine
20103 51 FORMAT('AT THE BEGINNING OF DPKAR3') argument
20106 52 FORMAT('IBUGA3,ISUBRO,N = ',2(A4,2X),I8)
20110 57 FORMAT('I,Y(I) = ',I8,G15.7)
20112 55 CONTINUE
20120 999 FORMAT(1X)
20123 91 FORMAT('***** ERROR IN KAPPENMAN R STATISTIC--')
20149 96 CONTINUE
20198 9001 FORMAT('AT THE END OF DPKAR3') argument
20201 9002 FORMAT('IERROR,STATVA = ',A4,2X,G15.7)
[all …]
|