[CIG-SEISMO] Compile-time issues in compute_forces_elastic_Dev_openmp.f90

[Poznanovic Jeffrey]

Hello, 

I'm trying to build the hybrid MPI+OMP version of SPECFEM3D_Cartesian (r21232).  There appear to be a few compile-time issues that were introduced in compute_forces_elastic_Dev_openmp.f90 -- some undeclared variables and a missing end-do statement.  

Below are the compile-time errors.  I have a patch file that has some suggested fixes, if you are interested.  

Thanks and regards, 

Jeff






ERRORS:  


ftn  -eF -em -rm -O3,fp3 -homp -DOPENMP_MODE -I../shared/ -c -o ../../obj/spec/compute_forces_elastic_Dev_openmp.openmp.o compute_forces_elastic_Dev_openmp.f90

  do icolor = istart, number_of_colors
  ^                                    
ftn-288 crayftn: ERROR COMPUTE_FORCES_ELASTIC_DEV_OPENMP, File = compute_forces_elastic_Dev_openmp.f90, Line = 217, Column = 3 
  A termination statement is missing for this DO statement.

    do ispec_p = estart,(estart-1)+num_elements
    ^                                           
ftn-288 crayftn: ERROR COMPUTE_FORCES_ELASTIC_DEV_OPENMP, File = compute_forces_elastic_Dev_openmp.f90, Line = 244, Column = 5 
  A termination statement is missing for this DO statement.

                tempx1l_att(i,j,1,thread_id) = tempx1l_att(i,j,1,thread_id) + &
                           ^                                                    
ftn-724 crayftn: ERROR COMPUTE_FORCES_ELASTIC_DEV_OPENMP, File = compute_forces_elastic_Dev_openmp.f90, Line = 408, Column = 28 
  Unknown statement.  Expected assignment statement but found "(" instead of "=" or "=>".

                tempy1l_att(i,j,1,thread_id) = tempy1l_att(i,j,1,thread_id) + &
                           ^                                                    
ftn-724 crayftn: ERROR COMPUTE_FORCES_ELASTIC_DEV_OPENMP, File = compute_forces_elastic_Dev_openmp.f90, Line = 415, Column = 28 
  Unknown statement.  Expected assignment statement but found "(" instead of "=" or "=>".

                tempz1l_att(i,j,1,thread_id) = tempz1l_att(i,j,1,thread_id) + &
                           ^                                                    
ftn-724 crayftn: ERROR COMPUTE_FORCES_ELASTIC_DEV_OPENMP, File = compute_forces_elastic_Dev_openmp.f90, Line = 422, Column = 28 
  Unknown statement.  Expected assignment statement but found "(" instead of "=" or "=>".

                   tempx2l_att(i,j,k,thread_id) = tempx2l_att(i,j,k,thread_id) + &
                              ^                                                    
ftn-724 crayftn: ERROR COMPUTE_FORCES_ELASTIC_DEV_OPENMP, File = compute_forces_elastic_Dev_openmp.f90, Line = 434, Column = 31 
  Unknown statement.  Expected assignment statement but found "(" instead of "=" or "=>".

                   tempy2l_att(i,j,k,thread_id) = tempy2l_att(i,j,k,thread_id) + &
                              ^                                                    
ftn-724 crayftn: ERROR COMPUTE_FORCES_ELASTIC_DEV_OPENMP, File = compute_forces_elastic_Dev_openmp.f90, Line = 441, Column = 31 
  Unknown statement.  Expected assignment statement but found "(" instead of "=" or "=>".

                   tempz2l_att(i,j,k,thread_id) = tempz2l_att(i,j,k,thread_id) + &
                              ^                                                    
ftn-724 crayftn: ERROR COMPUTE_FORCES_ELASTIC_DEV_OPENMP, File = compute_forces_elastic_Dev_openmp.f90, Line = 448, Column = 31 
  Unknown statement.  Expected assignment statement but found "(" instead of "=" or "=>".

          do j=1,m1
          ^         
ftn-288 crayftn: ERROR COMPUTE_FORCES_ELASTIC_DEV_OPENMP, File = compute_forces_elastic_Dev_openmp.f90, Line = 458, Column = 11 
  A termination statement is missing for this DO statement.

                tempx3l_att(i,1,j,thread_id) = tempx3l_att(i,1,j,thread_id) + &
                           ^                                                    
ftn-724 crayftn: ERROR COMPUTE_FORCES_ELASTIC_DEV_OPENMP, File = compute_forces_elastic_Dev_openmp.f90, Line = 460, Column = 28 
  Unknown statement.  Expected assignment statement but found "(" instead of "=" or "=>".

                tempy3l_att(i,1,j,thread_id) = tempy3l_att(i,1,j,thread_id) + &
                           ^                                                    
ftn-724 crayftn: ERROR COMPUTE_FORCES_ELASTIC_DEV_OPENMP, File = compute_forces_elastic_Dev_openmp.f90, Line = 467, Column = 28 
  Unknown statement.  Expected assignment statement but found "(" instead of "=" or "=>".

                tempz3l_att(i,1,j,thread_id) = tempz3l_att(i,1,j,thread_id) + &
                           ^                                                    
ftn-724 crayftn: ERROR COMPUTE_FORCES_ELASTIC_DEV_OPENMP, File = compute_forces_elastic_Dev_openmp.f90, Line = 474, Column = 28 
  Unknown statement.  Expected assignment statement but found "(" instead of "=" or "=>".

       endif
       ^     
ftn-289 crayftn: ERROR COMPUTE_FORCES_ELASTIC_DEV_OPENMP, File = compute_forces_elastic_Dev_openmp.f90, Line = 482, Column = 8 
  This END IF statement has no matching IF statement.

Cray Fortran : Version 8.1.2 (u81093f81206i81179p81339a81035e81007z81339)
Cray Fortran :               (x8123r81013w81013t8112b81048)
Cray Fortran : Wed Jan 16, 2013  11:11:00
Cray Fortran : Compile time:  0.1640 seconds
Cray Fortran : 982 source lines
Cray Fortran : 13 errors, 0 warnings, 0 other messages, 0 ansi
Cray Fortran : "explain ftn-message number" gives more information about each message.
make: *** [../../obj/spec/compute_forces_elastic_Dev_openmp.openmp.o] Error 1