请问我这个程序哪里有问题呀?错误列表显示第1行第2行有，但是不知道怎么改

SUBROUTINE AS (NS,N,NA,IS,LD,A)
C INTRODUCE support conditions into global stiffness matrix A
DIMENSION IS(NS),LD(N)
DOUBLE PRECISION A(NA)
DO 100 M=1,NS
I=3*(IS(M)/10)-3+MOD(IS(M),10)
A(LD(I))=1D22
100 CONTINUE
RETURN
END

这真的是python吗