Lines Matching defs:flatten

19       subroutine flatten  subroutine
27       integer i,next
28       logical query,exist
29       character*7 stype
30       character*20 keyword
31       character*240 record
32       character*240 string
73    10    continue
85    20       continue
94    30          format (/,' Enter the Initial Mean Squared Gaussian',
99    40          format (/,' Enter Length Scale for Potential Surface',
104    50          format (/,' Enter the Potential Surface Smoothing',
108    60       format (a240)
110    70       continue