1 ! 2 ! QRSHG - SHG process : w_2= w_3 3 ! QROPRF - optical refractivity calculation: w_2=-w_3 4 ! 5 PARAMETER ( MXQROP = MAXLBL , MBQRFR = MAXLBL , MCQRFR = MAXLBL ) 6 LOGICAL HYPCAL,AQROP,BQROP,CQROP,REFCHK,QRSPEC,QRSHG,QRPOCK, & 7 & QROPRF,SOCOLL,SSCOLL,QLOP 8 CHARACTER*8 AQRLB,BQRLB,CQRLB 9 COMMON /INFHYP/ HYPCAL,IPRHYP, NBQRFR, & 10 & NCQRFR, BQRFR(MBQRFR), & 11 & CQRFR(MCQRFR),NAQROP(8), NBQROP(8), NCQROP(8) , & 12 & AQROP(MXQROP), BQROP(MXQROP), CQROP(MXQROP), & 13 & REFCHK,IAABB,QRSPEC,QRSHG,QRPOCK,QROPRF,SOCOLL, & 14 & SSCOLL,QLOP 15 COMMON /CHRHYP/ AQRLB(8,MXQROP), BQRLB(8,MXQROP), & 16 & CQRLB(8,MXQROP) 17