Commits

Anonymous committed 0262ca1

clean-up

Comments (0)

Files changed (1)

acerdet_src/acerdet.f

       REAL YPAR
       DIMENSION YPAR(999),LPAR(99)
 
-      print *, '----- acerdet [', mode, ']...'
-
       CALL ACDINF(MODE)
       CALL ACDINI(MODE,LPAR,YPAR)
       CALL ACDCEL(MODE,LPAR,YPAR)