11056       SUBROUTINE DPTBCO(IHARG,NUMARG,IDETBC,MAXTEX,ITEBCO,  argument
11127       WRITE(ICOUT,53)MAXTEX,NUMTEX
11205       IF(NUMTEX.GT.MAXTEX)NUMTEX=MAXTEX
11241       NUMTEX=MAXTEX
11278       WRITE(ICOUT,9013)MAXTEX,NUMTEX
11307       SUBROUTINE DPTBLI(IHARG,IHARG2,NUMARG,IDETBL,MAXTEX,ITEBLI,  argument
11385       WRITE(ICOUT,53)MAXTEX,NUMTEX
11480       IF(NUMTEX.GT.MAXTEX)NUMTEX=MAXTEX
11520       NUMTEX=MAXTEX
11557       WRITE(ICOUT,9013)MAXTEX,NUMTEX
11586       SUBROUTINE DPTBTH(IHARG,IARGT,ARG,NUMARG,PDETBT,MAXTEX,PTEBTH,  argument
11660       WRITE(ICOUT,53)MAXTEX,NUMTEX
11741       IF(NUMTEX.GT.MAXTEX)NUMTEX=MAXTEX
11778       NUMTEX=MAXTEX
11815       WRITE(ICOUT,9013)MAXTEX,NUMTEX
15413       SUBROUTINE DPTEBA(IHARG,IARGT,ARG,NUMARG,ADETBA,MAXTEX,ATEXBA,  argument
15486       WRITE(ICOUT,53)MAXTEX,NUMTEX
15567       IF(NUMTEX.GT.MAXTEX)NUMTEX=MAXTEX
15604       NUMTEX=MAXTEX
15641       WRITE(ICOUT,9013)MAXTEX,NUMTEX
16365       SUBROUTINE DPTFCO(IHARG,NUMARG,IDETFC,MAXTEX,ITEFCO,  argument
16436       WRITE(ICOUT,53)MAXTEX,NUMTEX
16514       IF(NUMTEX.GT.MAXTEX)NUMTEX=MAXTEX
16550       NUMTEX=MAXTEX
16587       WRITE(ICOUT,9013)MAXTEX,NUMTEX,NUMARG
16607       SUBROUTINE DPTFSW(IHARG,NUMARG,IDETFS,MAXTEX,ITEFSW,  argument
16678       WRITE(ICOUT,53)MAXTEX,NUMTEX
16756       IF(NUMTEX.GT.MAXTEX)NUMTEX=MAXTEX
16792       NUMTEX=MAXTEX
16829       WRITE(ICOUT,9013)MAXTEX,NUMTEX