call read_x(intin,*11)
c Broadcast the order to compute internal coordinates to the slaves.
if (nfgtasks.gt.1)
& call MPI_Bcast(6,1,MPI_INTEGER,king,FG_COMM,IERROR)
call int_from_cart1(.false.)
else
call read_x(intin,*11)
c Broadcast the order to compute internal coordinates to the slaves.
if (nfgtasks.gt.1)
& call MPI_Bcast(6,1,MPI_INTEGER,king,FG_COMM,IERROR)
call int_from_cart1(.false.)
else