diff --git a/src/02_sphere.f b/src/02_sphere.f index 30a40017dc16151599017156795741f4c3ccc268..d074336025b788fb76f08f01c83a6d843cb3105a 100644 --- a/src/02_sphere.f +++ b/src/02_sphere.f @@ -6,8 +6,7 @@ WRITE(*,*) 'Enter the value for the radius of a sphere.' READ(*,*) radius -ccccc PI & radius values - radius = +ccccc PI value pi = ccccc PI value WRITE(*,*) 'The value of pi is ', pi diff --git a/src/04_namelist.f90 b/src/04_namelist.f90 index 04f4633e91f27026b65886d5ce60c7a2b829e00c..12b384ca72cc8a68519de672dca0ae276f96e48d 100644 --- a/src/04_namelist.f90 +++ b/src/04_namelist.f90 @@ -10,7 +10,7 @@ PROGRAM test_namelist write(*,*) 'Before:' call print_res(lon_min, lon_max, lat_min, lat_max) - open(161,file='07_namelist.def',status='old',form='formatted') + open(161,file='04_namelist.def',status='old',form='formatted') read(161,NML=namlon) write(*,*) 'Between:'