给出更多的信息。警告行的代码是什么？？

你如何赋初值的？？如何在 module 中定义变量的？？

这样可不可以解决：

将 Module 中定义改为： integer :: NSJ = 0

我觉得应该是你没给NSJ赋值之前就用到了该变量，跟module没什么直接关系。即使你在外部定义了那个变量，你没赋值却调用了，也会报同样的错。

module global
integer bj(5000,2),bbj(5000),back(5000,3),nbline(5000),nm(5000),jdbh(5000,3)
integer c,cc,maxpoint,ff,t,tt,v,yzd,a,aa,b,d,f,h,j,s,ss,pp,qq,jm,jj,k,cssj
integer add,g,gg,x11,y11,x21,y21,x31,y31,id(3)
real*8 p(5000,2),rr(5000),r(5000),m(5000,3),e,bb(5000),yzx,yxy,l1(5000),l2(5000),l(5000)
real*8 x1,y1, x2,y2,x3,y3,z11,z12,z112,z21,z22,z222,z31,z32,z332,x0,y0,x12,y12,x22,y22,yline
real*8 newp,naa,nbb,ncc,xzx,xx,yy,rb(5000),yxj(5000)
logical lg,Lj1,Lj2,Lj3,Li1,Li2,Li3
end module 


subroutine input
use global
write(*,*)'how many points to insert?'
read(*,*) maxpoint
open(1,file='input.txt')
read(1,*) np 
do i=1,np
read(1,*) p(i,1),p(i,2) 
bj(i,1)=p(i,1)
bj(i,2)=p(i,2)
enddo
continue
read(1,*) n 
do i=1,n
read(1,*) nbline(i)
enddo
continue
read(1,*)nb 
close(1)
end subroutine input 
.......
具体的就类似于这个了，麻烦大虾们帮帮忙，出现了
1.obj - 0 error(s), 14 warning(s)

其中某个warning为：
Warning: Variable NP is used before its value has been defined
jdbh(1,1)=np-3

 Warning: Variable N is used before its value has been defined
   do cc=1,n

np 和 n 就没定义啊。。。。

强烈建议你用 Implicit None

默认为整形了啊，石头大哥，我加你QQ，你不回我

请问为什么一定要用implicit none，我记得i，j,k,l,m,n默认为整形的，谢谢你啊，石头

np , n 没有定义，也没有给出他们的值。

你就直接 do i = 1, np

这个循环如何终止？？

我的QQ你再加一次

[quote]
请问为什么一定要用implicit none，我记得i，j,k,l,m,n默认为整形的，谢谢你啊，石头[/quote]
默认就是防止不小心, 如果你觉得对默认非常有信心就不用. 个人觉得本来就不应该有默认只是历史遗留问题. 你见C语言有默认的吗?

雪球 加QQ解答? 收费的么?