mld2p4-2:

Welcome message

examples/fileread/mld_cexample_1lev.f90

@@ -109,8 +109,8 @@ program mld_cexample_ml
   ! Hello world
   !
   if (iam == psb_root_) then 
-    write(*,*) 'Welcome to MLD2P4 version: ',psb_version_string_
+    write(*,*) 'Welcome to MLD2P4 version: ',mld_version_string_
-    write(*,*) 'This is the ',name,' sample program'
+    write(*,*) 'This is the ',trim(name),' sample program'
   end if
 
   !  get parameters

examples/fileread/mld_cexample_ml.f90

@@ -113,8 +113,8 @@ program mld_cexample_ml
   ! Hello world
   !
   if (iam == psb_root_) then 
-    write(*,*) 'Welcome to MLD2P4 version: ',psb_version_string_
+    write(*,*) 'Welcome to MLD2P4 version: ',mld_version_string_
-    write(*,*) 'This is the ',name,' sample program'
+    write(*,*) 'This is the ',trim(name),' sample program'
   end if
 
   ! get parameters

examples/fileread/mld_dexample_1lev.f90

@@ -108,8 +108,8 @@ program mld_dexample_ml
   ! Hello world
   !
   if (iam == psb_root_) then 
-    write(*,*) 'Welcome to MLD2P4 version: ',psb_version_string_
+    write(*,*) 'Welcome to MLD2P4 version: ',mld_version_string_
-    write(*,*) 'This is the ',name,' sample program'
+    write(*,*) 'This is the ',trim(name),' sample program'
   end if
 
   !  get parameters

examples/fileread/mld_dexample_ml.f90

@@ -112,8 +112,8 @@ program mld_dexample_ml
   ! Hello world
   !
   if (iam == psb_root_) then 
-    write(*,*) 'Welcome to MLD2P4 version: ',psb_version_string_
+    write(*,*) 'Welcome to MLD2P4 version: ',mld_version_string_
-    write(*,*) 'This is the ',name,' sample program'
+    write(*,*) 'This is the ',trim(name),' sample program'
   end if
 
   ! get parameters

examples/fileread/mld_sexample_1lev.f90

@@ -109,8 +109,8 @@ program mld_sexample_ml
   ! Hello world
   !
   if (iam == psb_root_) then 
-    write(*,*) 'Welcome to MLD2P4 version: ',psb_version_string_
+    write(*,*) 'Welcome to MLD2P4 version: ',mld_version_string_
-    write(*,*) 'This is the ',name,' sample program'
+    write(*,*) 'This is the ',trim(name),' sample program'
   end if
 
   !  get parameters

examples/fileread/mld_sexample_ml.f90

@@ -113,8 +113,8 @@ program mld_sexample_ml
   ! Hello world
   !
   if (iam == psb_root_) then 
-    write(*,*) 'Welcome to MLD2P4 version: ',psb_version_string_
+    write(*,*) 'Welcome to MLD2P4 version: ',mld_version_string_
-    write(*,*) 'This is the ',name,' sample program'
+    write(*,*) 'This is the ',trim(name),' sample program'
   end if
 
   ! get parameters

examples/fileread/mld_zexample_1lev.f90

@@ -108,8 +108,8 @@ program mld_zexample_ml
   ! Hello world
   !
   if (iam == psb_root_) then 
-    write(*,*) 'Welcome to MLD2P4 version: ',psb_version_string_
+    write(*,*) 'Welcome to MLD2P4 version: ',mld_version_string_
-    write(*,*) 'This is the ',name,' sample program'
+    write(*,*) 'This is the ',trim(name),' sample program'
   end if
 
   !  get parameters

examples/fileread/mld_zexample_ml.f90

@@ -112,8 +112,8 @@ program mld_zexample_ml
   ! Hello world
   !
   if (iam == psb_root_) then 
-    write(*,*) 'Welcome to MLD2P4 version: ',psb_version_string_
+    write(*,*) 'Welcome to MLD2P4 version: ',mld_version_string_
-    write(*,*) 'This is the ',name,' sample program'
+    write(*,*) 'This is the ',trim(name),' sample program'
   end if
 
   ! get parameters

examples/pdegen/mld_dexample_1lev.f90

@@ -125,8 +125,8 @@ program mld_dexample_1lev
   ! Hello world
   !
   if (iam == psb_root_) then 
-    write(*,*) 'Welcome to MLD2P4 version: ',psb_version_string_
+    write(*,*) 'Welcome to MLD2P4 version: ',mld_version_string_
-    write(*,*) 'This is the ',name,' sample program'
+    write(*,*) 'This is the ',trim(name),' sample program'
   end if
 
   ! get parameters

examples/pdegen/mld_dexample_ml.f90

@@ -129,8 +129,8 @@ program mld_dexample_ml
   ! Hello world
   !
   if (iam == psb_root_) then 
-    write(*,*) 'Welcome to MLD2P4 version: ',psb_version_string_
+    write(*,*) 'Welcome to MLD2P4 version: ',mld_version_string_
-    write(*,*) 'This is the ',name,' sample program'
+    write(*,*) 'This is the ',trim(name),' sample program'
   end if
 
   ! get parameters

examples/pdegen/mld_sexample_1lev.f90

@@ -126,8 +126,8 @@ program mld_sexample_1lev
   ! Hello world
   !
   if (iam == psb_root_) then 
-    write(*,*) 'Welcome to MLD2P4 version: ',psb_version_string_
+    write(*,*) 'Welcome to MLD2P4 version: ',mld_version_string_
-    write(*,*) 'This is the ',name,' sample program'
+    write(*,*) 'This is the ',trim(name),' sample program'
   end if
 
   ! get parameters

examples/pdegen/mld_sexample_ml.f90

@@ -125,8 +125,8 @@ program mld_sexample_ml
   ! Hello world
   !
   if (iam == psb_root_) then 
-    write(*,*) 'Welcome to MLD2P4 version: ',psb_version_string_
+    write(*,*) 'Welcome to MLD2P4 version: ',mld_version_string_
-    write(*,*) 'This is the ',name,' sample program'
+    write(*,*) 'This is the ',trim(name),' sample program'
   end if
 
   name='mld_sexample_ml'

mlprec/mld_base_prec_type.f90

@@ -81,10 +81,10 @@ module mld_base_prec_type
   ! 
   ! Version numbers
   !
-  character(len=*), parameter :: mld_version_string = "2.0.0"
+  character(len=*), parameter :: mld_version_string_ = "2.0.0"
-  integer, parameter          :: mld_version_major  = 2
+  integer, parameter          :: mld_version_major_  = 2
-  integer, parameter          :: mld_version_minor  = 0
+  integer, parameter          :: mld_version_minor_  = 0
-  integer, parameter          :: mld_patchlevel     = 0
+  integer, parameter          :: mld_patchlevel_     = 0
 
 
   type mld_aux_onelev_map_type

tests/fileread/cf_sample.f90

@@ -129,8 +129,8 @@ program cf_sample
   ! Hello world
   !
   if (iam == psb_root_) then 
-    write(*,*) 'Welcome to MLD2P4 version: ',psb_version_string_
+    write(*,*) 'Welcome to MLD2P4 version: ',mld_version_string_
-    write(*,*) 'This is the ',name,' sample program'
+    write(*,*) 'This is the ',trim(name),' sample program'
   end if
   !
   !  get parameters

tests/fileread/df_sample.f90

@@ -129,8 +129,8 @@ program df_sample
   ! Hello world
   !
   if (iam == psb_root_) then 
-    write(*,*) 'Welcome to MLD2P4 version: ',psb_version_string_
+    write(*,*) 'Welcome to MLD2P4 version: ',mld_version_string_
-    write(*,*) 'This is the ',name,' sample program'
+    write(*,*) 'This is the ',trim(name),' sample program'
   end if
   !
   !  get parameters

tests/fileread/sf_sample.f90

@@ -129,8 +129,8 @@ program sf_sample
   ! Hello world
   !
   if (iam == psb_root_) then 
-    write(*,*) 'Welcome to MLD2P4 version: ',psb_version_string_
+    write(*,*) 'Welcome to MLD2P4 version: ',mld_version_string_
-    write(*,*) 'This is the ',name,' sample program'
+    write(*,*) 'This is the ',trim(name),' sample program'
   end if
   !
   !  get parameters

tests/fileread/zf_sample.f90

@@ -129,8 +129,8 @@ program zf_sample
   ! Hello world
   !
   if (iam == psb_root_) then 
-    write(*,*) 'Welcome to MLD2P4 version: ',psb_version_string_
+    write(*,*) 'Welcome to MLD2P4 version: ',mld_version_string_
-    write(*,*) 'This is the ',name,' sample program'
+    write(*,*) 'This is the ',trim(name),' sample program'
   end if
   !
   !  get parameters

tests/pdegen/ppde.f90

@@ -147,8 +147,8 @@ program ppde
   ! Hello world
   !
   if (iam == psb_root_) then 
-    write(*,*) 'Welcome to MLD2P4 version: ',psb_version_string_
+    write(*,*) 'Welcome to MLD2P4 version: ',mld_version_string_
-    write(*,*) 'This is the ',name,' sample program'
+    write(*,*) 'This is the ',trim(name),' sample program'
   end if
 
 

tests/pdegen/spde.f90

@@ -147,8 +147,8 @@ program spde
   ! Hello world
   !
   if (iam == psb_root_) then 
-    write(*,*) 'Welcome to MLD2P4 version: ',psb_version_string_
+    write(*,*) 'Welcome to MLD2P4 version: ',mld_version_string_
-    write(*,*) 'This is the ',name,' sample program'
+    write(*,*) 'This is the ',trim(name),' sample program'
   end if
 
   !