1c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath SUBROUTINE DROTMG(DD1,DD2,DX1,DY1,DPARAM) 2c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath* .. Scalar Arguments .. 3c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath DOUBLE PRECISION DD1,DD2,DX1,DY1 4c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath* .. 5c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath* .. Array Arguments .. 6c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath DOUBLE PRECISION DPARAM(5) 7c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath* .. 8c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath* 9c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath* Purpose 10c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath* ======= 11c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath* 12c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath* CONSTRUCT THE MODIFIED GIVENS TRANSFORMATION MATRIX H WHICH ZEROS 13c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath* THE SECOND COMPONENT OF THE 2-VECTOR (DSQRT(DD1)*DX1,DSQRT(DD2)* 14c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath* DY2)**T. 15c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath* WITH DPARAM(1)=DFLAG, H HAS ONE OF THE FOLLOWING FORMS.. 16c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath* 17c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath* DFLAG=-1.D0 DFLAG=0.D0 DFLAG=1.D0 DFLAG=-2.D0 18c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath* 19c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath* (DH11 DH12) (1.D0 DH12) (DH11 1.D0) (1.D0 0.D0) 20c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath* H=( ) ( ) ( ) ( ) 21c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath* (DH21 DH22), (DH21 1.D0), (-1.D0 DH22), (0.D0 1.D0). 22c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath* LOCATIONS 2-4 OF DPARAM CONTAIN DH11, DH21, DH12, AND DH22 23c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath* RESPECTIVELY. (VALUES OF 1.D0, -1.D0, OR 0.D0 IMPLIED BY THE 24c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath* VALUE OF DPARAM(1) ARE NOT STORED IN DPARAM.) 25c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath* 26c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath* THE VALUES OF GAMSQ AND RGAMSQ SET IN THE DATA STATEMENT MAY BE 27c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath* INEXACT. THIS IS OK AS THEY ARE ONLY USED FOR TESTING THE SIZE 28c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath* OF DD1 AND DD2. ALL ACTUAL SCALING OF DATA IS DONE USING GAM. 29c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath* 30c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath* 31c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath* Arguments 32c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath* ========= 33c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath* 34c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath* DD1 (input/output) DOUBLE PRECISION 35c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath* 36c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath* DD2 (input/output) DOUBLE PRECISION 37c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath* 38c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath* DX1 (input/output) DOUBLE PRECISION 39c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath* 40c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath* DY1 (input) DOUBLE PRECISION 41c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath* 42c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath* DPARAM (input/output) DOUBLE PRECISION array, dimension 5 43c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath* DPARAM(1)=DFLAG 44c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath* DPARAM(2)=DH11 45c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath* DPARAM(3)=DH21 46c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath* DPARAM(4)=DH12 47c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath* DPARAM(5)=DH22 48c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath* 49c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath* ===================================================================== 50c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath* 51c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath* .. Local Scalars .. 52c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath DOUBLE PRECISION DFLAG,DH11,DH12,DH21,DH22,DP1,DP2,DQ1,DQ2,DTEMP, 53c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath + DU,GAM,GAMSQ,ONE,RGAMSQ,TWO,ZERO 54c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath INTEGER IGO 55c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath* .. 56c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath* .. Intrinsic Functions .. 57c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath INTRINSIC DABS 58c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath* .. 59c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath* .. Data statements .. 60c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath* 61c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath DATA ZERO,ONE,TWO/0.D0,1.D0,2.D0/ 62c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath DATA GAM,GAMSQ,RGAMSQ/4096.D0,16777216.D0,5.9604645D-8/ 63c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath* .. 64c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath 65c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath IF (.NOT.DD1.LT.ZERO) GO TO 10 66c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath* GO ZERO-H-D-AND-DX1.. 67c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath GO TO 60 68c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath 10 CONTINUE 69c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath* CASE-DD1-NONNEGATIVE 70c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath DP2 = DD2*DY1 71c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath IF (.NOT.DP2.EQ.ZERO) GO TO 20 72c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath DFLAG = -TWO 73c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath GO TO 260 74c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath* REGULAR-CASE.. 75c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath 20 CONTINUE 76c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath DP1 = DD1*DX1 77c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath DQ2 = DP2*DY1 78c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath DQ1 = DP1*DX1 79c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath* 80c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath IF (.NOT.DABS(DQ1).GT.DABS(DQ2)) GO TO 40 81c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath DH21 = -DY1/DX1 82c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath DH12 = DP2/DP1 83c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath* 84c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath DU = ONE - DH12*DH21 85c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath* 86c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath IF (.NOT.DU.LE.ZERO) GO TO 30 87c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath* GO ZERO-H-D-AND-DX1.. 88c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath GO TO 60 89c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath 30 CONTINUE 90c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath DFLAG = ZERO 91c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath DD1 = DD1/DU 92c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath DD2 = DD2/DU 93c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath DX1 = DX1*DU 94c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath* GO SCALE-CHECK.. 95c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath GO TO 100 96c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath 40 CONTINUE 97c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath IF (.NOT.DQ2.LT.ZERO) GO TO 50 98c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath* GO ZERO-H-D-AND-DX1.. 99c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath GO TO 60 100c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath 50 CONTINUE 101c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath DFLAG = ONE 102c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath DH11 = DP1/DP2 103c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath DH22 = DX1/DY1 104c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath DU = ONE + DH11*DH22 105c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath DTEMP = DD2/DU 106c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath DD2 = DD1/DU 107c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath DD1 = DTEMP 108c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath DX1 = DY1*DU 109c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath* GO SCALE-CHECK 110c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath GO TO 100 111c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath* PROCEDURE..ZERO-H-D-AND-DX1.. 112c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath 60 CONTINUE 113c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath DFLAG = -ONE 114c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath DH11 = ZERO 115c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath DH12 = ZERO 116c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath DH21 = ZERO 117c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath DH22 = ZERO 118c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath* 119c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath DD1 = ZERO 120c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath DD2 = ZERO 121c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath DX1 = ZERO 122c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath* RETURN.. 123c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath GO TO 220 124c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath* PROCEDURE..FIX-H.. 125c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath 70 CONTINUE 126c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath IF (.NOT.DFLAG.GE.ZERO) GO TO 90 127c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath* 128c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath IF (.NOT.DFLAG.EQ.ZERO) GO TO 80 129c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath DH11 = ONE 130c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath DH22 = ONE 131c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath DFLAG = -ONE 132c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath GO TO 90 133c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath 80 CONTINUE 134c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath DH21 = -ONE 135c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath DH12 = ONE 136c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath DFLAG = -ONE 137c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath 90 CONTINUE 138c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath GO TO IGO(120,150,180,210) 139c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath* PROCEDURE..SCALE-CHECK 140c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath 100 CONTINUE 141c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath 110 CONTINUE 142c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath IF (.NOT.DD1.LE.RGAMSQ) GO TO 130 143c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath IF (DD1.EQ.ZERO) GO TO 160 144c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath ASSIGN 120 TO IGO 145c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath* FIX-H.. 146c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath GO TO 70 147c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath 120 CONTINUE 148c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath DD1 = DD1*GAM**2 149c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath DX1 = DX1/GAM 150c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath DH11 = DH11/GAM 151c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath DH12 = DH12/GAM 152c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath GO TO 110 153c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath 130 CONTINUE 154c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath 140 CONTINUE 155c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath IF (.NOT.DD1.GE.GAMSQ) GO TO 160 156c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath ASSIGN 150 TO IGO 157c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath* FIX-H.. 158c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath GO TO 70 159c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath 150 CONTINUE 160c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath DD1 = DD1/GAM**2 161c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath DX1 = DX1*GAM 162c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath DH11 = DH11*GAM 163c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath DH12 = DH12*GAM 164c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath GO TO 140 165c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath 160 CONTINUE 166c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath 170 CONTINUE 167c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath IF (.NOT.DABS(DD2).LE.RGAMSQ) GO TO 190 168c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath IF (DD2.EQ.ZERO) GO TO 220 169c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath ASSIGN 180 TO IGO 170c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath* FIX-H.. 171c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath GO TO 70 172c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath 180 CONTINUE 173c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath DD2 = DD2*GAM**2 174c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath DH21 = DH21/GAM 175c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath DH22 = DH22/GAM 176c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath GO TO 170 177c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath 190 CONTINUE 178c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath 200 CONTINUE 179c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath IF (.NOT.DABS(DD2).GE.GAMSQ) GO TO 220 180c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath ASSIGN 210 TO IGO 181c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath* FIX-H.. 182c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath GO TO 70 183c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath 210 CONTINUE 184c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath DD2 = DD2/GAM**2 185c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath DH21 = DH21*GAM 186c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath DH22 = DH22*GAM 187c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath GO TO 200 188c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath 220 CONTINUE 189c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath IF (DFLAG) 250,230,240 190c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath 230 CONTINUE 191c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath DPARAM(3) = DH21 192c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath DPARAM(4) = DH12 193c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath GO TO 260 194c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath 240 CONTINUE 195c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath DPARAM(2) = DH11 196c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath DPARAM(5) = DH22 197c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath GO TO 260 198c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath 250 CONTINUE 199c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath DPARAM(2) = DH11 200c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath DPARAM(3) = DH21 201c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath DPARAM(4) = DH12 202c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath DPARAM(5) = DH22 203c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath 260 CONTINUE 204c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath DPARAM(1) = DFLAG 205c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath RETURN 206c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath END 207