src/graycore.f90 -> src/gray_core.f90

Rename for consistency with other modules.

src/gray_core.f90

@@ -1,4 +1,4 @@
-module graycore
+module gray_core
   use const_and_precisions, only : wp_
   implicit none
 
@@ -2238,4 +2238,4 @@ bb: do
 !    write(usumm,*) ''
   end subroutine print_finals
 
-end module graycore
+end module gray_core

src/gray_jetto1beam.f90

@@ -3,7 +3,7 @@ subroutine gray_jetto1beam(ijetto, mr, mz, r, z, psin, psia, rax, zax, &
     p0mw, alphain, betain, dpdv, jcd, pabs, icd, error)
   use const_and_precisions, only: wp_
   use gray_params,          only: gray_parameters, gray_data, gray_results
-  use graycore,             only: gray_main
+  use gray_core,            only: gray_main
 
   implicit none
 

src/gray_params.f90

@@ -116,7 +116,7 @@ module gray_params
     real(wp_), allocatable :: jcd(:)  ! Driven current density
   end type
 
-  ! Global variables exposed for graycore
+  ! Global variables exposed for gray_core
   integer, save :: iequil, iprof, ipol
   integer, save :: iwarm, ilarm, imx, ieccd
   integer, save :: igrad, idst, ipass

src/main.f90

@@ -1,6 +1,6 @@
 program main
   use const_and_precisions, only : wp_, one, zero
-  use graycore,             only : gray_main
+  use gray_core,            only : gray_main
   use gray_params,          only : gray_parameters, gray_data, gray_results, &
                                    read_parameters, params_set_globals => set_globals
   implicit none
@@ -343,7 +343,7 @@ contains
     use beamdata,             only : init_btr, dealloc_beam
     use pec,                  only : pec_init, postproc_profiles, dealloc_pec, &
                                      rhop_tab, rhot_tab
-    use graycore,             only : print_headers, print_finals, print_pec, &
+    use gray_core,            only : print_headers, print_finals, print_pec, &
                                      print_bres, print_prof, print_maps, &
                                      print_surfq
     implicit none