gyrokinetics / gs2 / 2078249816

coverage: 10.842% (+0.007%) from 10.835%
2078249816

push

gitlab-ci

David Dickinson 
Merged in feature/auto_create_response_dir_if_dumping (pull request #1183)

5054 of 46614 relevant lines covered (10.84%)

119748.47 hits per line

Source File
Press 'n' to go to next uncovered line, 'b' for previous

0.0
/src/programs/write_default_input_file.fpp
1 
program write_default_input_file
×
2 
  use mp, only: init_mp, finish_mp, proc0
×
3 
  use config_collection, only: gs2_config_type
4 
  implicit none
5 
  type(gs2_config_type) :: the_config
×
6 
  integer :: local_output_unit
7 









8



  call init_mp




×







9



  if (proc0) then




×







10



     open(newunit = local_output_unit, action = "write", file = "defaults.in")




×







11



     call the_config%write_to_unit(local_output_unit)




×







12



     close(local_output_unit)




×







13



  end if










14



  call finish_mp




×







15



end program write_default_input_file




×





















    

  • 

    •