V3FIT
VMEC2000
Sources
Initialization_Cleanup
close_all_files.f
1
SUBROUTINE
close_all_files
2
USE
vparams,
ONLY
: nmac, nthreed
3
IMPLICIT NONE
4
C-----------------------------------------------
5
6
IF
(nthreed .gt. 0)
CLOSE
(nthreed)
7
IF
(nmac .gt. 0)
CLOSE
(nmac)
8
9
END SUBROUTINE
close_all_files
Generated on Thu Mar 5 2020 15:49:26 for V3FIT by
1.8.17