V3FIT
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