FORTRAN77 和Fortan90 do 循环语句的不同和替换

由于查阅早期的F77程序，目前平台普遍采用F90。其中Do语句有所不同，为了区别和替代，参考如下：

!----------------------------------
 subroutine samplef77
  
  real c,p
  integer i,j
  dimension C(2,2),p(2,2)
  do 100  i=1 , 2
    do 100  j= 1 , 2
         c(i,j)=p(i,j)
    100    continue

     end 
    
  !----------------------------------------------  
   subroutine samplef90
          
     real c,p  
    integer i,j
    dimension :: C(2,2),p(2,2)   
    
          out:   do  i=1 , 2

           int:  do  j= 1 , 2
               c(i,j)=p(i,j)
           end  do int
          end  do out
    end subroutine samplef90