Fortran declaration of string variable to use character(LEN=*) form

Author: wkliao

examples/F77/block_cyclic.f

@@ -66,7 +66,7 @@ program main
           integer NY, NX
           PARAMETER(NX=10, NY=4)
 
-          character*256 filename, cmd
+          character(LEN=256) filename, cmd
           integer i, j, rank, nprocs, err, ierr, num_reqs, get_args
           integer ncid, cmode, varid, dimid(2), stride, block_len
           integer buf(NX, NY)

examples/F77/bput_varn_int8.f

@@ -79,7 +79,7 @@ program main
           integer*8 NX, NY
           PARAMETER(NDIMS=2, NX=10, NY=4)
 
-          character*256 filename, cmd
+          character(LEN=256) filename, cmd
           integer i, j, k, n, err, ierr, nprocs, rank, get_args
           integer cmode, ncid, varid(4), dimid(NDIMS), nreqs
           integer reqs(4), sts(4), num_segs(4)

examples/F77/column_wise.f

@@ -69,7 +69,7 @@ program main
           integer NY, NX
           PARAMETER(NX=10, NY=4)
 
-          character*256 filename, cmd
+          character(LEN=256) filename, cmd
           integer i, j, rank, nprocs, err, ierr, num_reqs, get_args
           integer ncid, cmode, varid, dimid(2)
           integer buf(NX, NY)

examples/F77/fill_mode.f

@@ -69,7 +69,7 @@ program main
           include 'mpif.h'
           include 'pnetcdf.inc'
 
-          character*256 filename, cmd
+          character(LEN=256) filename, cmd
           integer i, j, err, ierr, nprocs, rank, get_args
           integer cmode, ncid, rec_varid, fix_varid, dimid(2)
           integer no_fill, fill_value, old_mode

examples/F77/flexible_api.f

@@ -70,7 +70,7 @@ program main
           include "mpif.h"
           include "pnetcdf.inc"
 
-          character*256 filename, cmd
+          character(LEN=256) filename, cmd
           integer err, ierr, nprocs, rank, i, j, ghost_len, get_args
           integer cmode, ncid, varid, dimid(2)
           integer*8 nx, ny, global_nx, global_ny

examples/F77/get_info.f

@@ -40,7 +40,7 @@ program main
         include "mpif.h"
         include "pnetcdf.inc"
 
-        character*256 filename, cmd
+        character(LEN=256) filename, cmd
         integer ncid, rank, info, cmode, err, ierr, get_args
         integer*8 malloc_size, sum_size
         logical verbose
@@ -102,7 +102,7 @@ subroutine print_info(info_used)
             integer info_used
 
             ! local variables
-            character*(MPI_MAX_INFO_VAL) key, value
+            character(LEN=MPI_MAX_INFO_VAL) key, value
             integer nkeys, i, err
             logical flag
 
@@ -126,7 +126,7 @@ subroutine handle_err(err_msg, errcode)
             include "mpif.h"
             include "pnetcdf.inc"
 
-            character*(*) err_msg
+            character(LEN=*) err_msg
             integer       errcode
 
             ! local variables

examples/F77/hints.f

@@ -48,7 +48,7 @@ subroutine print_hints(ncid, varid0, varid1)
           integer ncid, varid0, varid1
 
           ! local variables
-          character*(MPI_MAX_INFO_VAL) value
+          character(LEN=MPI_MAX_INFO_VAL) value
           integer err, len, info_used
           logical flag
           integer*8 header_size, header_extent
@@ -133,7 +133,7 @@ program main
       include "mpif.h"
       include "pnetcdf.inc"
 
-      character*256 filename, cmd
+      character(LEN=256) filename, cmd
       integer NZ, NY, NX
       integer ncid, rank, nprocs, info, cmode, err, ierr, get_args
       integer varid0, varid1, dimid(3), dimid2(2)

examples/F77/i_varn_real.f

@@ -103,7 +103,7 @@ program main
           integer*8 NX, NY
           PARAMETER(NDIMS=2, NX=4, NY=10)
 
-          character*256 filename, cmd
+          character(LEN=256) filename, cmd
           integer i, j, n, err, ierr, nprocs, rank, get_args
           integer cmode, ncid, varid(4), dimid(NDIMS), nreqs
           integer reqs(4), sts(4), num_segs(4)

examples/F77/nonblocking_write.f

@@ -40,7 +40,7 @@ program main
           integer NDIMS, NUM_VARS, BUFSIZE
           PARAMETER(NDIMS=3, NUM_VARS=10, BUFSIZE=1000)
 
-          character*256 filename, cmd, str
+          character(LEN=256) filename, cmd, str
           integer i, j, cmode, err, ierr, get_args, info
           integer rank, nprocs, ncid, len
           integer buf(BUFSIZE, NUM_VARS), buf1d(BUFSIZE)

examples/F77/put_vara.f

@@ -68,7 +68,7 @@ program main
           include 'mpif.h'
           include 'pnetcdf.inc'
 
-          character*256 filename, cmd
+          character(LEN=256) filename, cmd
           integer i, j, err, ierr, nprocs, rank, get_args, dummy
           integer cmode, ncid, varid, dimid(2)
           integer*8 nx, ny, global_nx, global_ny