title: Line truncated, Syntax error in argument list
body: <p>When I compile the program below, I have an error and a warning in the <code>call Coor_Trans</code> command line as</p>
  <blockquote>
  <p>Warning: Line truncated</p>
  <p>Error: Syntax error in argument list</p>
  </blockquote>
  <p>I compile the program several times, but it does not work. Maybe there is something wrong with my call command.</p>
  <pre><code>program 3D
      
        implicit none
        integer :: i,j,k
        integer, parameter :: FN=2,FML=5,FMH=5
        integer, parameter :: NBE=FN*FML*FMH
        real, parameter :: pi = 4*atan(1.0)
        real(kind=4), dimension(1:FN,1:FML+1,1:FMH+1) :: BEXL,BEYL,BEZL
        real(kind=4), dimension(1:FN,1:FML,1:FMH) :: BEXC,BEYC,BEZC,BE2A,BE2B,ANGLE
        real(kind=4), dimension(1:NBE,1:1,1:1) :: BEXC1,BEYC1,BEZC1,BE2A1,BE2B1,ANGLE1
        real(kind=4), dimension(1:NBE,1:NBE) :: LOC_PTS1,LOC_PTS2,LOC_PTS3
        real :: LOC_1,LOC_2,LOC_3
      
        do i=1,FN
          do j=1,FML
             do k=1,FMH
      
              BEXC(i,j,k) = 0.5*(BEXL(i,j,k) + BEXL(i,j+1,k))
              BEYC(i,j,k) = 0.5*(BEYL(i,j,k) + BEYL(i,j+1,k))
              BEZC(i,j,k) = 0.5*(BEZL(i,j,k) + BEZL(i,j,k+1))
              BE2A(i,j,k) = FL(i)/FML + j*0 + k*0
              BE2B(i,j,k) = FH(i)/FMH + j*0 + k*0
              ANGLE(i,j,k) = BETA(i) + j*0 + k*0
      
             end do
          end do
        end do
      
        BEXC1 = reshape(BEXC,(/NBE,1,1/))
        BEYC1 = reshape(BEYC,(/NBE,1,1/))
        BEZC1 = reshape(BEZC,(/NBE,1,1/))
        BE2A1 = reshape(BE2A,(/NBE,1,1/))
        BE2B1 = reshape(BE2B,(/NBE,1,1/))
        ANGLE1 = reshape(ANGLE,(/NBE,1,1/))
      
        do i=1,NBE
          do j=1,NBE
  
              call Coor_Trans(BEXC1(i,1,1),BEYC1(i,1,1),BEZC1(i,1,1),BEXC1(j,1,1),BEYC1(j,1,1),BEZC1(j,1,1),ANGLE1(j,1,1),LOC_1,LOC_2,LOC_3)
              LOC_PTS1(i,j) = LOC_1
              LOC_PTS2(i,j) = LOC_2
              LOC_PTS3(i,j) = LOC_3
      
          end do
        end do
      
      end program 3D
  
        subroutine Coor_Trans(GLOB_PTSX1,GLOB_PTSY1,GLOB_PTSZ1,GLOB_PTSX2,GLOB_PTSY2,GLOB_PTSZ2,BETA,LOC_PTS1,LOC_PTS2,LOC_PTS3)
      
        implicit none
        real(kind=4), intent(in) :: GLOB_PTSX1,GLOB_PTSY1,GLOB_PTSZ1,GLOB_PTSX2,GLOB_PTSY2,GLOB_PTSZ2,BETA
        real(kind=4), intent(out) :: LOC_PTS1,LOC_PTS2,LOC_PTS3
        real, parameter :: pi = 4*atan(1.0)
        real :: E1,E2
        E1 = cos(BETA/180*pi)
        E2 = sin(BETA/180*pi)
        LOC_PTS1 = (GLOB_PTSX1-GLOB_PTSX2)*E1 + (GLOB_PTSY1-GLOB_PTSY2)*E2
        LOC_PTS2 = (GLOB_PTSZ1-GLOB_PTSZ2)
        LOC_PTS3 = -(GLOB_PTSX1-GLOB_PTSX2)*E2 + (GLOB_PTSY1-GLOB_PTSY2)*E1
        !return
      
        end subroutine Coor_Trans
  </code></pre>