!  CONVERT ke', ke", ku', ku" TO COMPLEX INDEX

OUTPUT SCREEN
FORMAT 10.6

KE1 = 9.00
KE2 = 0.001

KU1 = 1
KU2 = 0

PRINT
PRINT "CONSTITUTIVE PARAMETERS:"
PRINT
PRINT "ke'   = ",KE1,"    ke'' = ",KE2
PRINT
PRINT "ku'   = ",KU1,"    ku'' = ",KU2
PRINT

Q1 = SQRT(  ( KE1*KE1 + KE2*KE2 ) * ( KU1*KU1 + KU2*KU2 ) )

Q2 = KE1 * KU1 - KE2 * KU2

INDEX = SQRT ( Q1 + Q2 ) / SQRT(2)

Q3 = KE1*KU2 + KE2*KU1

IF Q3==0 
    ABSORPTION_INDEX = 0
  ELSE
    ABSORPTION_INDEX = ABSO(Q3)/Q3 * SQRT ( Q1 - Q2 ) / SQRT(2)
ENDIF

PRINT "COMPLEX INDEX OF REFRACTION:"
PRINT
PRINT "INDEX = ",INDEX,"    K    = ",ABSORPTION_INDEX

END