ich programmiere gerade mit fortran 95. Wie der Betreff schon sagt liegt bei mir bei G(5), G(6), G(7) dieser Fehler vor:
Error: Expected a right parenthesis in expression at (1)
G(7)=-(275/(((12X(2))/(4X(3)))**2&
Was mach ich falsch. Um jegliche Tipps bin ich mit Dank verbunden.
Code: Alles auswählen
SUBROUTINE GFUN(G,X)
IMPLICIT NONE
REAL*8 G(10) , X(3)
G(1)= X(1)-1400.0d0
G(2)= -X(2)+100.0d0
G(3)= X(2)-400.0d0
G(4)=-X(3)+2.0d0
G(5)=-(4/3)*(0.5*X(2)-X(3))**3*3.141592654-3.141592654*(0.5*X(2)&
& -X(3))**2*X(1)+50.0d0
G(6)=-(275/(((8*X(2))/(4*X(3)))**2&
& +((8*X(2))/2*X(3)))**2&
& -((8*X(2))/(4*X(3)))*((8*X(2))/(2*X(3))))**0.5)+1.5.0d0
G(7)=-(275/(((12*X(2))/(4*X(3)))**2&
& +((12*X(2))/2*X(3)))**2&
& -((12*X(2))/(4*X(3)))*((12*X(2))/(2*X(3))))**0.5)+1.1.0d0
G(8)=-X(1)+0.0d0
G(9)=-X(2)+0.0d0
G(10)=-X(3)+0.0d0
END