19345       SUBROUTINE DPBNPV(P1,N1,P2,N2,ALPHA,ICASAN,IWRITE,PVALUE,  subroutine
19397    51   FORMAT('***** AT THE BEGINNING OF DPBNPV--')  argument
19400    52   FORMAT('IBUGA3,ICASAN,IWRITE = ',2A4,2X,A4)
19403    53   FORMAT('P1,N1,P2,N2,ALPHA = ',2(G15.7,I8),G15.7)
19420   111   FORMAT('****** ERROR IN DIFFERENCE OF PROPORTION ',
19421      1         'HYPOTHESIS TEST--')
19424   113   FORMAT('         THE NUMBER OF OBSERVATIONS FOR THE FIRST ',
19425      1         'RESPONSE VARIABLE IS LESS THAN 2.')
19428   114   FORMAT('SAMPLE SIZE = ',I8)
19440   123   FORMAT('         THE NUMBER OF OBSERVATIONS FOR THE ',
19441      1         'SECOND RESPONSE VARIABLE IS LESS THAN 2.')
19444   124   FORMAT('SAMPLE SIZE = ',I8)
19457   162   FORMAT('      THE BINOMIAL PROBABILITY OF SUCCESS PARAMETER ',
19458      1         'FOR THE')
19461   164   FORMAT('      FIRST RESPONSE VARIABLE IS OUTSIDE THE ',
19462      1         '(0,1) INTERVAL.')
19465   167   FORMAT('      THE PROBABILITY OF SUCCESS PARAMETER = ',G15.7)
19479   174   FORMAT('      SECOND RESPONSE VARIABLE IS OUTSIDE THE ',
19480      1         '(0,1) INTERVAL.')
19496   182   FORMAT('      THE VALUE OF ALPHA IS OUTSIDE THE (0,1) ',
19497      1         'INTERVAL.')
19500   187   FORMAT('      THE VALUE OF ALPHA = ',G15.7)
19553  9011   FORMAT('***** AT THE END       OF DPBNPV--')  argument
19556  9012   FORMAT('IBUGA3,IERROR = ',A4,2X,A4)
19559  9013   FORMAT('PHAT,SDP = ',2(G15.7,2X))
19562  9014   FORMAT('STATVA,PVALUE = ',2(G15.7,2X))