1c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath SUBROUTINE SROTMG(SD1,SD2,SX1,SY1,SPARAM) 2c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath* .. Scalar Arguments .. 3c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath REAL SD1,SD2,SX1,SY1 4c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath* .. 5c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath* .. Array Arguments .. 6c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath REAL SPARAM(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 (SQRT(SD1)*SX1,SQRT(SD2)* 14c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath* SY2)**T. 15c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath* WITH SPARAM(1)=SFLAG, H HAS ONE OF THE FOLLOWING FORMS.. 16c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath* 17c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath* SFLAG=-1.E0 SFLAG=0.E0 SFLAG=1.E0 SFLAG=-2.E0 18c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath* 19c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath* (SH11 SH12) (1.E0 SH12) (SH11 1.E0) (1.E0 0.E0) 20c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath* H=( ) ( ) ( ) ( ) 21c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath* (SH21 SH22), (SH21 1.E0), (-1.E0 SH22), (0.E0 1.E0). 22c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath* LOCATIONS 2-4 OF SPARAM CONTAIN SH11,SH21,SH12, AND SH22 23c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath* RESPECTIVELY. (VALUES OF 1.E0, -1.E0, OR 0.E0 IMPLIED BY THE 24c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath* VALUE OF SPARAM(1) ARE NOT STORED IN SPARAM.) 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 SD1 AND SD2. ALL ACTUAL SCALING OF DATA IS DONE USING GAM. 29c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath* 30c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath* 31c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath* Arguments 32c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath* ========= 33c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath* 34c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath* 35c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath* SD1 (input/output) REAL 36c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath* 37c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath* SD2 (input/output) REAL 38c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath* 39c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath* SX1 (input/output) REAL 40c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath* 41c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath* SY1 (input) REAL 42c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath* 43c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath* 44c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath* SPARAM (input/output) REAL array, dimension 5 45c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath* SPARAM(1)=SFLAG 46c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath* SPARAM(2)=SH11 47c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath* SPARAM(3)=SH21 48c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath* SPARAM(4)=SH12 49c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath* SPARAM(5)=SH22 50c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath* 51c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath* ===================================================================== 52c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath* 53c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath* .. Local Scalars .. 54c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath REAL GAM,GAMSQ,ONE,RGAMSQ,SFLAG,SH11,SH12,SH21,SH22,SP1,SP2,SQ1, 55c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath + SQ2,STEMP,SU,TWO,ZERO 56c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath INTEGER IGO 57c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath* .. 58c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath* .. Intrinsic Functions .. 59c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath INTRINSIC ABS 60c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath* .. 61c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath* .. Data statements .. 62c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath* 63c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath DATA ZERO,ONE,TWO/0.E0,1.E0,2.E0/ 64c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath DATA GAM,GAMSQ,RGAMSQ/4096.E0,1.67772E7,5.96046E-8/ 65c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath* .. 66c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath 67c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath IF (.NOT.SD1.LT.ZERO) GO TO 10 68c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath* GO ZERO-H-D-AND-SX1.. 69c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath GO TO 60 70c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath 10 CONTINUE 71c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath* CASE-SD1-NONNEGATIVE 72c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath SP2 = SD2*SY1 73c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath IF (.NOT.SP2.EQ.ZERO) GO TO 20 74c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath SFLAG = -TWO 75c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath GO TO 260 76c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath* REGULAR-CASE.. 77c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath 20 CONTINUE 78c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath SP1 = SD1*SX1 79c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath SQ2 = SP2*SY1 80c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath SQ1 = SP1*SX1 81c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath* 82c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath IF (.NOT.ABS(SQ1).GT.ABS(SQ2)) GO TO 40 83c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath SH21 = -SY1/SX1 84c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath SH12 = SP2/SP1 85c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath* 86c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath SU = ONE - SH12*SH21 87c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath* 88c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath IF (.NOT.SU.LE.ZERO) GO TO 30 89c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath* GO ZERO-H-D-AND-SX1.. 90c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath GO TO 60 91c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath 30 CONTINUE 92c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath SFLAG = ZERO 93c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath SD1 = SD1/SU 94c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath SD2 = SD2/SU 95c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath SX1 = SX1*SU 96c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath* GO SCALE-CHECK.. 97c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath GO TO 100 98c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath 40 CONTINUE 99c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath IF (.NOT.SQ2.LT.ZERO) GO TO 50 100c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath* GO ZERO-H-D-AND-SX1.. 101c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath GO TO 60 102c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath 50 CONTINUE 103c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath SFLAG = ONE 104c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath SH11 = SP1/SP2 105c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath SH22 = SX1/SY1 106c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath SU = ONE + SH11*SH22 107c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath STEMP = SD2/SU 108c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath SD2 = SD1/SU 109c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath SD1 = STEMP 110c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath SX1 = SY1*SU 111c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath* GO SCALE-CHECK 112c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath GO TO 100 113c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath* PROCEDURE..ZERO-H-D-AND-SX1.. 114c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath 60 CONTINUE 115c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath SFLAG = -ONE 116c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath SH11 = ZERO 117c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath SH12 = ZERO 118c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath SH21 = ZERO 119c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath SH22 = ZERO 120c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath* 121c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath SD1 = ZERO 122c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath SD2 = ZERO 123c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath SX1 = ZERO 124c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath* RETURN.. 125c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath GO TO 220 126c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath* PROCEDURE..FIX-H.. 127c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath 70 CONTINUE 128c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath IF (.NOT.SFLAG.GE.ZERO) GO TO 90 129c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath* 130c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath IF (.NOT.SFLAG.EQ.ZERO) GO TO 80 131c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath SH11 = ONE 132c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath SH22 = ONE 133c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath SFLAG = -ONE 134c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath GO TO 90 135c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath 80 CONTINUE 136c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath SH21 = -ONE 137c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath SH12 = ONE 138c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath SFLAG = -ONE 139c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath 90 CONTINUE 140c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath GO TO IGO(120,150,180,210) 141c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath* PROCEDURE..SCALE-CHECK 142c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath 100 CONTINUE 143c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath 110 CONTINUE 144c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath IF (.NOT.SD1.LE.RGAMSQ) GO TO 130 145c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath IF (SD1.EQ.ZERO) GO TO 160 146c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath ASSIGN 120 TO IGO 147c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath* FIX-H.. 148c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath GO TO 70 149c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath 120 CONTINUE 150c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath SD1 = SD1*GAM**2 151c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath SX1 = SX1/GAM 152c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath SH11 = SH11/GAM 153c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath SH12 = SH12/GAM 154c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath GO TO 110 155c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath 130 CONTINUE 156c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath 140 CONTINUE 157c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath IF (.NOT.SD1.GE.GAMSQ) GO TO 160 158c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath ASSIGN 150 TO IGO 159c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath* FIX-H.. 160c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath GO TO 70 161c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath 150 CONTINUE 162c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath SD1 = SD1/GAM**2 163c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath SX1 = SX1*GAM 164c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath SH11 = SH11*GAM 165c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath SH12 = SH12*GAM 166c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath GO TO 140 167c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath 160 CONTINUE 168c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath 170 CONTINUE 169c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath IF (.NOT.ABS(SD2).LE.RGAMSQ) GO TO 190 170c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath IF (SD2.EQ.ZERO) GO TO 220 171c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath ASSIGN 180 TO IGO 172c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath* FIX-H.. 173c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath GO TO 70 174c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath 180 CONTINUE 175c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath SD2 = SD2*GAM**2 176c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath SH21 = SH21/GAM 177c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath SH22 = SH22/GAM 178c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath GO TO 170 179c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath 190 CONTINUE 180c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath 200 CONTINUE 181c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath IF (.NOT.ABS(SD2).GE.GAMSQ) GO TO 220 182c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath ASSIGN 210 TO IGO 183c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath* FIX-H.. 184c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath GO TO 70 185c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath 210 CONTINUE 186c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath SD2 = SD2/GAM**2 187c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath SH21 = SH21*GAM 188c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath SH22 = SH22*GAM 189c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath GO TO 200 190c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath 220 CONTINUE 191c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath IF (SFLAG) 250,230,240 192c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath 230 CONTINUE 193c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath SPARAM(3) = SH21 194c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath SPARAM(4) = SH12 195c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath GO TO 260 196c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath 240 CONTINUE 197c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath SPARAM(2) = SH11 198c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath SPARAM(5) = SH22 199c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath GO TO 260 200c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath 250 CONTINUE 201c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath SPARAM(2) = SH11 202c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath SPARAM(3) = SH21 203c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath SPARAM(4) = SH12 204c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath SPARAM(5) = SH22 205c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath 260 CONTINUE 206c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath SPARAM(1) = SFLAG 207c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath RETURN 208c981c48f5bc9aefeffc0bcb0cc3934c2fae179ddNarayan Kamath END 209