1 subroutine argos_cafe_scmfor(icmopt,ismol,isatt,vs,fs,nums,fcm) 2c 3 implicit none 4c 5#include "argos_cafe_common.fh" 6#include "mafdecls.fh" 7#include "global.fh" 8c 9 integer icmopt,ismol(msa),isatt(msa),nums 10 real*8 vs(msa,3),fs(msa,3),fcm(msm,5) 11c 12 call argos_cafe_scmf(icmopt,ismol,isatt,vs,fs,nums,fcm, 13 + dbl_mb(i_mas)) 14c 15 return 16 end 17c $Id$ 18