34       SUBROUTINE LHS  subroutine
117      1      'types were found in the LHS input.'  argument
119      1      'by this LHS program run.'  argument
121      1      'the LHS output file'  argument
170   130    CONTINUE
173   140    CONTINUE
201 ccc***End of information duplicated in LHS_PREP  argument
224      1               (IDT .GE. 27  .AND.  IDT .LE. 35) ) THEN
255      1               IDT .EQ. 26) THEN
280   100    CONTINUE
290      1                                dt(5), dt(6), dt(7), Chr2
297   240             CONTINUE
302   245             CONTINUE
303   250          CONTINUE
308   260       CONTINUE
317      1                                dt(5), dt(6), dt(7), Chr2
325      1                                dt(5), dt(6), dt(7), Chr2
337   300    CONTINUE
375 C     normal termination from LHS  argument
378  9001 FORMAT('0',3(9('*'),' CAUTION USER PLEASE NOTE '),10('*'),//,1X,
379      1       'SINCE THE SAMPLE SIZE IS LESS THAN OR EQUAL TO THE ',
380      2       'NUMBER OF VARIABLES',/,' THIS IS NOT A FULL RANK CASE ',
381      3       'SO THE REQUESTED',/,' CORRELATION STRUCTURE, SHOWN ',
382      4       'ABOVE, CANNOT BE GENERATED',/,' THEREFORE THE INPUT ',
383      5       'MATRIX WILL BE GENERATED AS IF THE',/,' INPUT ',
384      6       'VARIABLES WERE INDEPENDENT',//,1X,115('*'))
385  9002 FORMAT('0',3(9('*'),' CAUTION USER PLEASE NOTE '),10('*'),//,1X,
386      1       'THE INPUT RANK CORRELATION MATRIX IS NOT POSITIVE ',
387      2       'DEFINITE',/,' AN ITERATIVE PROCEDURE HAS BEEN USED TO ',
388      3       'PRODUCE A SUBSTITUTE RANK CORRELATION MATRIX',/,' THIS ',
389      3       'ADJUSTED RANK CORRELATION MATRIX APPEARS ON THE NEXT ',
390      4       'PAGE',/,' THE USER SHOULD EXAMINE THIS MATRIX TO MAKE ',
391      5       'SURE THAT THE CORRELATION REQUIREMENTS ARE STILL ',
392      6        'SATISFIED',//,1X,115('*'))
393  9003 FORMAT('0',3(9('*'),' CAUTION USER PLEASE NOTE '),10('*'),//,1X,
394      1       'RANDOM PAIRING CANNOT BE USED WHEN THE USER SPECIFIES ',
395      2       'A CORRELATION STRUCTURE',/,' THUS, THE RANDOM PAIRING ',
396      3       'PARAMETER HAS BEEN IGNORED',//,1X,115('*'))
398  9010 FORMAT (5x,A,I2,":",I2,":",I2,".",A)