FORTRAN 77“错误：（1）处的不可分类陈述”

Question

这个程序：

  

C该程序计算cos（x ** 2）

  PROGRAM COSX_SQUARE
  IMPLICIT NONE
  INTEGER a
  REAL y, r

          PRINT*, 'INPUT THE DEGREE'
          PRINT*, 'BETWEEN 0 AND 360'
          READ*, a

                 a*(3.141592/180) = y

     

C此部分确定减号并计算函数

          IF (a .GT. 90) THEN
          r = -(1-(y**4)/2+(y**8)/24-(y**12)/720+(y**16)/40320)

          ELSEIF (a .GE. 270) THEN
          r = 1-(y**4)/2+(y**8)/24-(y**12)/720+(y**16)/40320

          ELSEIF (a .GT. 360) THEN
          PRINT*, 'INVALID DEGREE'
          PRINT*, 'DEGREE MUST BE BETWEEN 0 AND 360'

          ELSEIF (a .LT. 0) THEN
          PRINT*, 'INVALID DEGREE'
          PRINT*, 'DEGREE MUST BE BETWEEN 0 AND 360'
          END IF

  PRINT*, 'THE RESULT OF COS', a, 'SQUARE IS = ', r

  STOP
  END

给出了这个错误：

                 a*(3.141592/180)=y                                
                 1

     

错误：（1）

处的不可分类陈述

我已经将“a”定义为INTEGER。为什么这个错误会继续？ 提前致谢。

Answer 1

是的。这是一个开始陈述的表达。也许把它改成

  y = a*(3.141592/180)

如果这就是你的真实含义。