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