Эта строка (третья в многострочном выражении):
-wm*((wm/2)*((P1*w2+P2*w1)**2)))/(o1*o2)
|| | || | ||| | |
|+----+ |+-----------+ ||| +-----+
| +----------------+||
+-------------------------+|
??? <--------------------------+
имеет слишком много закрывающих скобок {дрожит от страха от моих потрясающих навыков рисования :-)}.Это должно быть:
-wm*((wm/2)*((P1*w2+P2*w1)**2))/(o1*o2)
Список проблем, полный , который я получил от этого источника, был:
source.f90:7.18: n=4000000000
1
Error: Integer too big for its kind at (1). This check can
be disabled with the option -fno-range-check.
source.f90:26.9: y=1+wm*(P1*w1*((w2)**2-x**2))/(o1*o2) &
1
Error: Unclassifiable statement at (1)
Второй из нихвы, вероятно, имеете (и тот, который вы можете исправить с помощью вышеуказанного решения).Первое, если оно у вас возникнет, вызовет проблему, но я подозреваю, что это только из-за моего окружения.