error #5082: Syntax error, found

[David_H_10]

Hi Steve

could you help me please?

Thanks

David

I have following error:

Error    1     error #5082: Syntax error, found '(' when expecting one of: <END-OF-STATEMENT> ; <LABEL> BLOCK BLOCKDATA PROGRAM MODULE TYPE COMPLEX BYTE ...    c:\Source\neu29.05.15\src\traeger12\traeger12\traeger12\h_anstell.f90    13    

here my cods:

 subroutine h_anstell (kontur, anstmass)

 use modmpc, only: profil 
 record / profil/      kontur
 real(kind=8)     ::   anstmass
 integer          ::   i

 do i=1,kontur.anz_punkte

       if (kontur.pkt(i).y < 0 ) then
       
             (kontur.pkt(i).y = kontur.pkt(i).y - anstmass/2_8)
              
                elseif (kontur.pkt(i).y > 0) then 
                
             (kontur.pkt(i).y = kontur.pkt(i).y + anstmass/2_8)
             
       endif
 enddo

 end subroutine   

[David_H_10]

thanks
but I have found the error.
The clamp must move away

so below is correct and works

subroutine h_anstell (kontur, anstmass)

 use modmpc, only: profil 
 record / profil/      kontur
 real(kind=8)     ::   anstmass
 integer          ::   i

 do i=1,kontur.anz_punkte

       if (kontur.pkt(i).y < 0 ) then
       
             kontur.pkt(i).y = kontur.pkt(i).y - anstmass/2_8
              
                elseif (kontur.pkt(i).y > 0) then 
                
             kontur.pkt(i).y = kontur.pkt(i).y + anstmass/2_8
             
       endif
 enddo

 end subroutine