Searched defs:COCODE (Results 1 – 1 of 1) sorted by relevance
| /dports/graphics/dataplot/dataplot-2c1b27601a3b7523449de612613eadeead9a8f70/src/ |
| H A D | dp5.F | 834 SUBROUTINE COCODE(X,N,XREF,NREF,XPRIME,IBUGA3) subroutine
907 110 FORMAT('***** AT THE BEGINNING OF COCODE--') argument
910 111 FORMAT('N,NREF = ',I8,I8)
934 9011 FORMAT('***** AT THE END OF COCODE--') argument
937 9012 FORMAT('N,NREF = ',2I8)
941 9016 FORMAT('I,X(I),XREF(I),XPRIME(I) = ',I8,3G15.7)
943 9015 CONTINUE
|