linse/sics
0
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Compiled under Redhat Linux<Right

Browse Source
This commit is contained in:
cvs
2000-02-18 15:54:23 +00:00
parent b9529f1cfd
commit cbc7fdf334
48 changed files with 160 additions and 109 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
difrac/cfind.f
View File

@@ -18,7 +18,7 @@ C-----------------------------------------------------------------------
ICOUNT = 0
MCOUNT = 0
DO 120 I = 1,NPTS
CALL CTIME (TIM,TCOUNT(I))
CALL CCTIME (TIM,TCOUNT(I))
IF (TCOUNT(I)/TIM .GT. ICPSMX .AND. NATT .LT. NATTEN) THEN
NATT = NATT + 1
GO TO 110