Script started on Wed Sep 18 13:31:52 1996
einstein 21> fdemo1
 a =   2.5000000000000001E-02 b =  -1.2339999999999999E-16
  c =    1.000000000000000     i =         3000 switch =  T
 Through scalar assignment
 Enter anything & <CR> to continue
a
 res1 =    5.000000000000000     res2 =    13.00000000000000    
  res3 =    3.605551275463989    
 Through real*8 arithmetic expressions
 Enter anything & <CR> to continue
a
 ires1 =            5 ires2 =            0
 ires3 =          512 ires4 =           64
 Through integer arithmetic expressions
 Enter anything & <CR> to continue
a
 res1 =    5.000000000000000     res2 =   0.0000000000000000E+00
  res3 =   0.7500000000000000    
 Through mixed-mode arithmetic
 Enter anything & <CR> to continue
a
 Loop 1: i =            1
 Loop 1: i =            2
 Loop 1: i =            3
 Through loop 1
 Enter anything & <CR> to continue
a
 Loop 2: i =            1
 Loop 2: i =            2
 Loop 2: i =            3
 Through loop 2
 Enter anything & <CR> to continue
a
 Loop 3: i =            1
 Loop 3: i =            3
 Loop 3: i =            5
 Loop 3: i =            7
 Through loop 3
 Enter anything & <CR> to continue
a
 Loop 4: i =            3
 Loop 4: i =            2
 Loop 4: i =            1
 Through loop 4
 Enter anything & <CR> to continue
a
 Loop 5: i, j =            1           1
 Loop 5: i, j =            1           2
 Loop 5: i, j =            2           1
 Loop 5: i, j =            2           2
 Loop 5: i, j =            3           1
 Loop 5: i, j =            3           2
 Through loop 5
 Enter anything & <CR> to continue
a
 Loop 6: i =            2
 Loop 6: i =            4
 Loop 6: i =            6
 Through loop 6
 Enter anything & <CR> to continue
a
 lres1 =  T lres2 =  T lres3 =  F
 Through loop 7
 Enter anything & <CR> to continue
a
    25.00000000000000     >    12.00000000000000    
 Through if 1
 Enter anything & <CR> to continue
a
    25.00000000000000     >    12.00000000000000    
 Through if 2
 Enter anything & <CR> to continue
a
    25.00000000000000     >    24.00000000000000    
 Through if 3
 Enter anything & <CR> to continue
a
 Case 1
 Case 2
 Case 3
 Default case
 Through if 4
 Enter anything & <CR> to continue
a
 res1 =   0.8090169943749475     res2 =   0.5877852522924731    
 res3 =    1.000000000000000     res4 =    1.000000000000000    
 Through fcn 1
 Enter anything & <CR> to continue
a
 res1 =   0.7853981633974483    
 Through fcn 2
 Enter anything & <CR> to continue
a
 min(3.0d0,2.0d0) =    2.000000000000000    
 min(1,-3,5,0) =           -3
 Through fcn 3
 Enter anything & <CR> to continue
a
 i =            0
 i =          100
 i =          200
 i =          300
 i =          400
 i =          500
 i =          600
 i =          700
 i =          800
 i =          900
 i =         1000
 Through fcn 4
 Enter anything & <CR> to continue
a
 Through fdemo1 4
 Enter anything & <CR> to continue
a
einstein 22> exit
einstein 23> 
script done on Wed Sep 18 13:32:15 1996