|
楼主 |
发表于 2007-6-2 17:47:04
|
显示全部楼层
fortran源程序段
根据gdb的调试,是不是说明第36和559行有问题?
下面是源码
- (gdb) l 36
- 31 C
- 32 C READ IN AND INITIALISE DATA.
- 33 CALL SYSDEF
- 34 C
- 35 C SET UP STARTING CONFIGURATION
- 36 CALL START
- 37 C
- 38 C PRINT OUT SYSTEM PARAMETERS
- 39 CALL OUTPUT(1)
- 40 C***********************************************************************
复制代码
第36行是调用子程序START,第559行是START子程序里的一部分,如下:
- (gdb) l 559
- 554 COMMON/CMVELO/VMOM(3,NSP),ANGM(3,NSP)
- 555 COMMON/CMFRCS/FXYZ(3,NSP),TXYZ(3,NSP)
- 556 DIMENSION XB(4),YB(4),ZB(4)
- 557 DATA XB/0.5,-.5,0.5,-.5/,YB/0.5,-.5,-.5,0.5/,ZB/0.5,0.5,-.5,-.5/
- 558 C XRANF(IDUM)=2.0*RANF()-1.0
- 559 XRANF(IDUM)=2.0*RAND()-1.0
- 560 IDUM=0
- 561 IF(.NOT.NLRES)GO TO 10
- 562 CALL AGAIN(1)
- 563 GO TO 32
复制代码
可我还是看不出来是哪有问题,所以要请教各位大侠,不胜感激 |
|