[완료]포트란 서브루틴에 관한 질문2입니다.

다음과 같은 서브루틴을 사용 했는데요

Subroutine potential(A,B,C,D,n,ef,dgi,bi,lam,ga)
dimension A(3000),B(3000),C(3000),D(3000),ef(3000),dgi(3000)
Do 970 i=1,n
A(i)=-bi*lam*ef(i)
B(i)=-(2**(3.d0/2.d0))*bi*ga*lam*dgi(i)
C(i)=-bi*lam*(ef(i)-2*ga*dgi(i))
D(i)=-(2**(3.d0/2.d0))*bi*ga*lam*dgi(i)
970 continue
return
end

이런 오류가 생겼습니다.

무엇이 문제인가요?
gfm_dd.f: In subroutine `potential':
gfm_dd.f:93: warning:
call potential(Va,Vb,Vc,Vd,nx,f,g,b,lambda,gamm)
1
gfm_dd.f:155: (continued):
Subroutine potential(A,B,C,D,n,ef,dgi,bi,lam,ga)
2
Argument #1 (named `a') of `potential' is one precision at (2) but is some other
precision at (1) [info -f g77 M GLOBALS]
gfm_dd.f:93: warning:
call potential(Va,Vb,Vc,Vd,nx,f,g,b,lambda,gamm)
1
gfm_dd.f:155: (continued):
Subroutine potential(A,B,C,D,n,ef,dgi,bi,lam,ga)
2
Argument #2 (named `b') of `potential' is one precision at (2) but is some other
precision at (1) [info -f g77 M GLOBALS]
gfm_dd.f:93: warning:
call potential(Va,Vb,Vc,Vd,nx,f,g,b,lambda,gamm)
1
gfm_dd.f:155: (continued):
Subroutine potential(A,B,C,D,n,ef,dgi,bi,lam,ga)
2
Argument #3 (named `c') of `potential' is one precision at (2) but is some other
precision at (1) [info -f g77 M GLOBALS]
gfm_dd.f:93: warning:
call potential(Va,Vb,Vc,Vd,nx,f,g,b,lambda,gamm)
1
gfm_dd.f:155: (continued):
Subroutine potential(A,B,C,D,n,ef,dgi,bi,lam,ga)
2
Argument #4 (named `d') of `potential' is one precision at (2) but is some other
precision at (1) [info -f g77 M GLOBALS]
gfm_dd.f:93: warning:
call potential(Va,Vb,Vc,Vd,nx,f,g,b,lambda,gamm)
1
gfm_dd.f:155: (continued):
Subroutine potential(A,B,C,D,n,ef,dgi,bi,lam,ga)
2
Argument #6 (named `ef') of `potential' is one precision at (2) but is some othe
r precision at (1) [info -f g77 M GLOBALS]
gfm_dd.f:93: warning:
call potential(Va,Vb,Vc,Vd,nx,f,g,b,lambda,gamm)
1
gfm_dd.f:155: (continued):
Subroutine potential(A,B,C,D,n,ef,dgi,bi,lam,ga)
2
Argument #7 (named `dgi') of `potential' is one precision at (2) but is some oth er precision at (1) [info -f g77 M GLOBALS]
gfm_dd.f:93: warning:
call potential(Va,Vb,Vc,Vd,nx,f,g,b,lambda,gamm)
1
gfm_dd.f:155: (continued):
Subroutine potential(A,B,C,D,n,ef,dgi,bi,lam,ga)
2
Argument #8 (named `bi') of `potential' is one precision at (2) but is some othe r precision at (1) [info -f g77 M GLOBALS]
gfm_dd.f:93: warning:
call potential(Va,Vb,Vc,Vd,nx,f,g,b,lambda,gamm)
1
gfm_dd.f:155: (continued):
Subroutine potential(A,B,C,D,n,ef,dgi,bi,lam,ga)
2
Argument #10 (named `ga') of `potential' is one precision at (2) but is some oth er precision at (1) [info -f g77 M GLOBALS]
저의 우문에 교수님들의 현답 기다리겠습니다. 매번 감사합니다.