Commits

Anonymous committed 0262ca1

clean-up

  • Participants
  • Parent commits 7777e70

Comments (0)

Files changed (1)

File 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)