* Changed to 'add_definitions' to select block unrolling.
* CHARACTER/INTEGER/REAL*xxx -> CHARACTER/INTEGER/REAL(xxx)
* 'CALL EXIT(100)' -> 'STOP 100'
* Removed declared but unused variables