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:'