[cig-commits] [commit] devel: Normalize case of Fortran keywords. (9cbcd40)
cig_noreply at geodynamics.org
cig_noreply at geodynamics.org
Thu May 1 00:50:07 PDT 2014
Repository : ssh://geoshell/specfem3d
On branch : devel
Link : https://github.com/geodynamics/specfem3d/compare/cb32c88d6155d7974561a6f72fc17aea596e2c4d...50aa953c1db3f565d76415f5305410a529996b75
>---------------------------------------------------------------
commit 9cbcd40926557e5d32e303243de0794338afee4b
Author: Elliott Sales de Andrade <esalesde at physics.utoronto.ca>
Date: Sat Apr 26 22:23:00 2014 -0400
Normalize case of Fortran keywords.
>---------------------------------------------------------------
9cbcd40926557e5d32e303243de0794338afee4b
src/decompose_mesh/decompose_mesh.F90 | 4 +--
src/decompose_mesh/fault_scotch.f90 | 6 ++--
src/decompose_mesh/part_decompose_mesh.f90 | 2 +-
.../fault_generate_databases.f90 | 2 +-
src/generate_databases/model_1d_prem.f90 | 22 +++++++-------
src/meshfem3D/define_superbrick.f90 | 12 ++++----
src/specfem3D/locate_receivers.f90 | 2 +-
src/specfem3D/noise_tomography.f90 | 34 +++++++++++-----------
8 files changed, 42 insertions(+), 42 deletions(-)
diff --git a/src/decompose_mesh/decompose_mesh.F90 b/src/decompose_mesh/decompose_mesh.F90
index 57679bb..fb55ec0 100644
--- a/src/decompose_mesh/decompose_mesh.F90
+++ b/src/decompose_mesh/decompose_mesh.F90
@@ -1103,7 +1103,7 @@ module decompose_mesh
CPML_regions, is_CPML, glob2loc_elmnts, part)
! gets number of MPI interfaces
- call Write_interfaces_database(IIN_database, tab_interfaces, tab_size_interfaces, ipart, ninterfaces, &
+ call write_interfaces_database(IIN_database, tab_interfaces, tab_size_interfaces, ipart, ninterfaces, &
my_ninterface, my_interfaces, my_nb_interfaces, &
glob2loc_elmnts, glob2loc_nodes_nparts, glob2loc_nodes_parts, &
glob2loc_nodes, 1, nparts)
@@ -1116,7 +1116,7 @@ module decompose_mesh
write(IIN_database) my_ninterface, maxval(my_nb_interfaces)
endif
- call Write_interfaces_database(IIN_database, tab_interfaces, tab_size_interfaces, ipart, ninterfaces, &
+ call write_interfaces_database(IIN_database, tab_interfaces, tab_size_interfaces, ipart, ninterfaces, &
my_ninterface, my_interfaces, my_nb_interfaces, &
glob2loc_elmnts, glob2loc_nodes_nparts, glob2loc_nodes_parts, &
glob2loc_nodes, 2, nparts)
diff --git a/src/decompose_mesh/fault_scotch.f90 b/src/decompose_mesh/fault_scotch.f90
index 11ba630..d2ab427 100644
--- a/src/decompose_mesh/fault_scotch.f90
+++ b/src/decompose_mesh/fault_scotch.f90
@@ -58,7 +58,7 @@ module fault_scotch
CONTAINS
!==========================================================================================
- Subroutine read_fault_files(localpath_name)
+ subroutine read_fault_files(localpath_name)
character(len=256),intent(in) :: localpath_name
integer :: nbfaults, iflt, ier
@@ -87,7 +87,7 @@ CONTAINS
!---------------------------------------------------------------------------------------------------
- Subroutine read_single_fault_file(f,ifault,localpath_name)
+ subroutine read_single_fault_file(f,ifault,localpath_name)
type(fault_type), intent(inout) :: f
character(len=256),intent(in) :: localpath_name
@@ -140,7 +140,7 @@ CONTAINS
close(101)
- end Subroutine read_single_fault_file
+ end subroutine read_single_fault_file
! ---------------------------------------------------------------------------------------------------
diff --git a/src/decompose_mesh/part_decompose_mesh.f90 b/src/decompose_mesh/part_decompose_mesh.f90
index e4594d4..332d90e 100644
--- a/src/decompose_mesh/part_decompose_mesh.f90
+++ b/src/decompose_mesh/part_decompose_mesh.f90
@@ -434,7 +434,7 @@ contains
enddo
endif
- end subroutine Write_glob2loc_nodes_database
+ end subroutine write_glob2loc_nodes_database
!--------------------------------------------------
diff --git a/src/generate_databases/fault_generate_databases.f90 b/src/generate_databases/fault_generate_databases.f90
index 24b9ac4..92adac3 100644
--- a/src/generate_databases/fault_generate_databases.f90
+++ b/src/generate_databases/fault_generate_databases.f90
@@ -634,7 +634,7 @@ subroutine fault_save_arrays(prname)
size_Kelvin_Voigt = 0
endif
write(IOUT) size_Kelvin_Voigt
- if (size_Kelvin_Voigt /= 0) Write(IOUT) Kelvin_Voigt_eta
+ if (size_Kelvin_Voigt /= 0) write(IOUT) Kelvin_Voigt_eta
close(IOUT)
! saves mesh file proc***_fault_db.bin
diff --git a/src/generate_databases/model_1d_prem.f90 b/src/generate_databases/model_1d_prem.f90
index 2ea2a56..c3c4bbe 100644
--- a/src/generate_databases/model_1d_prem.f90
+++ b/src/generate_databases/model_1d_prem.f90
@@ -307,47 +307,47 @@
r=r0/1000.
x_prem=r/6371. ! Radius (normalized to x(surface)=1 )
- IF(idom==1)THEN ! upper crustal layer
+ if(idom==1)then ! upper crustal layer
ro_prem=2.6
vp_prem=5.8
vs_prem=3.2
- else if(idom==2)THEN
+ else if(idom==2)then
ro_prem=2.9 ! lower crustal layer
vp_prem=6.8
vs_prem=3.9
- else if(idom==3)THEN
+ else if(idom==3)then
ro_prem=2.691+.6924*x_prem ! upper mantle
vp_prem=4.1875+3.9382*x_prem
vs_prem=2.1519+2.3481*x_prem
- else if(idom==4)THEN
+ else if(idom==4)then
ro_prem=7.1089-3.8045*x_prem
vp_prem=20.3926-12.2569*x_prem
vs_prem=8.9496-4.4597*x_prem
- else if(idom==5)THEN
+ else if(idom==5)then
ro_prem=11.2494-8.0298*x_prem
vp_prem=39.7027-32.6166*x_prem
vs_prem=22.3512-18.5856*x_prem
- else if(idom==6)THEN
+ else if(idom==6)then
ro_prem=5.3197-1.4836*x_prem
vp_prem=19.0957-9.8672*x_prem
vs_prem=9.9839-4.9324*x_prem
- else if(idom==7)THEN !lower mantle
+ else if(idom==7)then !lower mantle
ro_prem=7.9565-6.4761*x_prem+5.5283*x_prem**2-3.0807*x_prem**3
vp_prem=29.2766-23.6027*x_prem+5.5242*x_prem**2-2.5514*x_prem**3
vs_prem=22.3459-17.2473*x_prem-2.0834*x_prem**2+0.9783*x_prem**3
- else if(idom==8)THEN
+ else if(idom==8)then
ro_prem=7.9565-6.4761*x_prem+5.5283*x_prem**2-3.0807*x_prem**3
vp_prem=24.9520-40.4673*x_prem+51.4832*x_prem**2-26.6419*x_prem**3
vs_prem=11.1671-13.7818*x_prem+17.4575*x_prem**2-9.2777*x_prem**3
- else if(idom==9)THEN
+ else if(idom==9)then
ro_prem=7.9565-6.4761*x_prem+5.5283*x_prem**2-3.0807*x_prem**3
vp_prem=15.3891-5.3181*x_prem+5.5242*x_prem**2-2.5514*x_prem**3
vs_prem=6.9254+1.4672*x_prem-2.0834*x_prem**2+.9783*x_prem**3
- else if(idom==10)THEN ! outer core
+ else if(idom==10)then ! outer core
ro_prem=12.5815-1.2638*x_prem-3.6426*x_prem**2-5.5281*x_prem**3
vp_prem=11.0487-4.0362*x_prem+4.8023*x_prem**2-13.5732*x_prem**3
vs_prem=0.00
- else if(idom==11)THEN ! inner core
+ else if(idom==11)then ! inner core
ro_prem=13.0885-8.8381*x_prem**2
vp_prem=11.2622-6.3640*x_prem**2
vs_prem=3.6678-4.4475*x_prem**2
diff --git a/src/meshfem3D/define_superbrick.f90 b/src/meshfem3D/define_superbrick.f90
index b2b8616..087383d 100644
--- a/src/meshfem3D/define_superbrick.f90
+++ b/src/meshfem3D/define_superbrick.f90
@@ -1216,8 +1216,8 @@
logical, dimension(NSPEC_DOUBLING_SUPERBRICK,6) :: iboun_sb
integer :: case_num
- SELECT CASE (case_num)
- CASE (1)
+ select case (case_num)
+ case (1)
x_superbrick(1) = 1.d0 / 2.d0
y_superbrick(1) = 1.d0
z_superbrick(1) = 2.d0
@@ -1423,7 +1423,7 @@
iboun_sb(8,3) = .true.
iboun_sb(8,4) = .true.
iboun_sb(8,5) = .true.
- CASE (2)
+ case (2)
x_superbrick(1) = 1.d0 / 2.d0
y_superbrick(1) = 0.d0
z_superbrick(1) = 2.d0
@@ -1629,7 +1629,7 @@
iboun_sb(8,3) = .true.
iboun_sb(8,4) = .true.
iboun_sb(8,5) = .true.
- CASE (3)
+ case (3)
x_superbrick(1) = 1.d0 / 2.d0
y_superbrick(1) = 1.d0
z_superbrick(1) = 2.d0
@@ -1835,7 +1835,7 @@
iboun_sb(8,3) = .true.
iboun_sb(8,4) = .true.
iboun_sb(8,5) = .true.
- CASE (4)
+ case (4)
x_superbrick(1) = 1.d0 / 2.d0
y_superbrick(1) = 0.d0
z_superbrick(1) = 2.d0
@@ -2041,7 +2041,7 @@
iboun_sb(8,3) = .true.
iboun_sb(8,4) = .true.
iboun_sb(8,5) = .true.
- END SELECT
+ end select
end subroutine define_basic_doubling_brick
diff --git a/src/specfem3D/locate_receivers.f90 b/src/specfem3D/locate_receivers.f90
index e6408fd..e4220d4 100644
--- a/src/specfem3D/locate_receivers.f90
+++ b/src/specfem3D/locate_receivers.f90
@@ -188,7 +188,7 @@
! checks if station locations already available
if( SU_FORMAT ) then
! checks if file with station infos located from previous run exists
- INQUIRE(file=trim(OUTPUT_FILES_PATH)//'/SU_stations_info.bin',exist=SU_station_file_exists)
+ inquire(file=trim(OUTPUT_FILES_PATH)//'/SU_stations_info.bin',exist=SU_station_file_exists)
if ( SU_station_file_exists ) then
! all processes read in stations names from STATIONS file
do irec=1,nrec
diff --git a/src/specfem3D/noise_tomography.f90 b/src/specfem3D/noise_tomography.f90
index ecc9d8c..6718ec6 100644
--- a/src/specfem3D/noise_tomography.f90
+++ b/src/specfem3D/noise_tomography.f90
@@ -290,7 +290,7 @@ end module user_noise_distribution
open(unit=IOUT_NOISE,file=trim(OUTPUT_FILES_PATH)//'/irec_master_noise', &
status='unknown',action='write',iostat=ios)
if( ios /= 0 ) call exit_MPI(myrank,'error opening file '//trim(OUTPUT_FILES_PATH)//'/irec_master_noise')
- WRITE(IOUT_NOISE,*) 'The master receiver is: (RECEIVER ID)', irec_master_noise
+ write(IOUT_NOISE,*) 'The master receiver is: (RECEIVER ID)', irec_master_noise
close(IOUT_NOISE)
endif
@@ -364,21 +364,21 @@ end module user_noise_distribution
if (myrank == 0) then
open(unit=IOUT_NOISE,file=trim(OUTPUT_FILES_PATH)//'NOISE_SIMULATION', &
status='unknown',action='write')
- WRITE(IOUT_NOISE,*) '*******************************************************************************'
- WRITE(IOUT_NOISE,*) '*******************************************************************************'
- WRITE(IOUT_NOISE,*) 'WARNING!!!!!!!!!!!!'
- WRITE(IOUT_NOISE,*) 'You are running simulations using NOISE TOMOGRAPHY techniques.'
- WRITE(IOUT_NOISE,*) 'Please make sure you understand the procedures before you have a try.'
- WRITE(IOUT_NOISE,*) 'Displacements everywhere at the free surface are saved every timestep,'
- WRITE(IOUT_NOISE,*) 'so make sure that LOCAL_PATH in Par_file is not global.'
- WRITE(IOUT_NOISE,*) 'Otherwise the disk storage may be a serious issue, as is the speed of I/O.'
- WRITE(IOUT_NOISE,*) 'Also make sure that NO earthquakes are included,'
- WRITE(IOUT_NOISE,*) 'i.e., set moment tensor to be ZERO in CMTSOLUTION'
- WRITE(IOUT_NOISE,*) '!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!'
- WRITE(IOUT_NOISE,*) 'If you just want a regular EARTHQUAKE simulation,'
- WRITE(IOUT_NOISE,*) 'set NOISE_TOMOGRAPHY=0 in Par_file'
- WRITE(IOUT_NOISE,*) '*******************************************************************************'
- WRITE(IOUT_NOISE,*) '*******************************************************************************'
+ write(IOUT_NOISE,*) '*******************************************************************************'
+ write(IOUT_NOISE,*) '*******************************************************************************'
+ write(IOUT_NOISE,*) 'WARNING!!!!!!!!!!!!'
+ write(IOUT_NOISE,*) 'You are running simulations using NOISE TOMOGRAPHY techniques.'
+ write(IOUT_NOISE,*) 'Please make sure you understand the procedures before you have a try.'
+ write(IOUT_NOISE,*) 'Displacements everywhere at the free surface are saved every timestep,'
+ write(IOUT_NOISE,*) 'so make sure that LOCAL_PATH in Par_file is not global.'
+ write(IOUT_NOISE,*) 'Otherwise the disk storage may be a serious issue, as is the speed of I/O.'
+ write(IOUT_NOISE,*) 'Also make sure that NO earthquakes are included,'
+ write(IOUT_NOISE,*) 'i.e., set moment tensor to be ZERO in CMTSOLUTION'
+ write(IOUT_NOISE,*) '!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!'
+ write(IOUT_NOISE,*) 'If you just want a regular EARTHQUAKE simulation,'
+ write(IOUT_NOISE,*) 'set NOISE_TOMOGRAPHY=0 in Par_file'
+ write(IOUT_NOISE,*) '*******************************************************************************'
+ write(IOUT_NOISE,*) '*******************************************************************************'
close(IOUT_NOISE)
endif
@@ -504,7 +504,7 @@ end module user_noise_distribution
if (myrank == 0) then
open(unit=IOUT_NOISE,file=trim(OUTPUT_FILES_PATH)//'nu_master',status='unknown',action='write')
- WRITE(IOUT_NOISE,*) 'The direction (ENZ) of selected component of master receiver is', nu_master
+ write(IOUT_NOISE,*) 'The direction (ENZ) of selected component of master receiver is', nu_master
close(IOUT_NOISE)
endif
More information about the CIG-COMMITS
mailing list