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
|