end_scri Subroutine

private subroutine end_scri()

End of script

Arguments

None

Calls

proc~~end_scri~~CallsGraph proc~end_scri end_scri end_fftw3 end_fftw3 proc~end_scri->end_fftw3

Called by

proc~~end_scri~~CalledByGraph proc~end_scri end_scri proc~read_job read_job proc~read_job->proc~end_scri proc~prg_surf prg_surf proc~prg_surf->proc~read_job program~main main program~main->proc~prg_surf

Source Code

   subroutine end_scri()
      !! End of script
   implicit none

      close(SPY)

      if ( allocated( PARAM%imp_acf  ) ) deallocate( PARAM%imp_acf  )
      if ( allocated( PARAM%acf_surf ) ) deallocate( PARAM%acf_surf )
      if ( allocated( PARAM%surf     ) ) deallocate( PARAM%surf     )
      if ( allocated( PARAM%vect_h   ) ) deallocate( PARAM%vect_h   )
      if ( allocated( PARAM%fhi      ) ) deallocate( PARAM%fhi      )
      if ( allocated( PARAM%order    ) ) deallocate( PARAM%order    )


      call end_fftw3()

   return
   endsubroutine end_scri