*$ CREATE SETBDY.FOR
*COPY SETBDY
*
*=== Setbdy ===========================================================*
*
      SUBROUTINE SETBDY ( IBODY, ITYPE, BDYFIN, NBDYFI )

      INCLUDE '(DBLPRU)'
      INCLUDE '(DIMPAR)'
      INCLUDE '(IOUNIT)'
*
*----------------------------------------------------------------------*
*                                                                      *
*     Copyright (C) 1998-2009      by    Alfredo Ferrari & Paola Sala  *
*     All Rights Reserved.                                             *
*                                                                      *
*                                                                      *
*     SET BoDY data:                                                   *
*                                                                      *
*     Created on    25 may 1998    by    Alfredo Ferrari & Paola Sala  *
*                                                   Infn - Milan       *
*                                                                      *
*     Last change on   09-Dec-09   by    Alfredo Ferrari               *
*                                                                      *
*                                                                      *
*     This entry forces recomputing distances for ALL bodies           *
*                                                                      *
*                   Body type list:                                    *
*                                                                      *
*      Body code   Body #    Body #      Expected number               *
*                  (input)  (internal)   of parameters:                *
*                                                                      *
*        ARB          1         1           30                         *
*        SPH          2         2            4                         *
*        RCC          3         3            7                         *
*        REC          4         4           12                         *
*        TRC          5         5            8                         *
*        ELL          6         6            7                         *
*        BOX          7         7           12                         *
*        WED          8         8           12                         *
*        RPP          9         9            6                         *
*        ZCC         10        10            3                         *
*        ZEC         11        10            4                         *
*        XYP         12        11            1                         *
*        XZP         13        11            1                         *
*        YZP         14        11            1                         *
*        PLA         15        12            6                         *
*        XCC         16        13            3                         *
*        XEC         17        13            4                         *
*        YCC         18        14            3                         *
*        YEC         19        14            4                         *
*        QUA         20        15           10                         *
*        END         21         -            0                         *
*                                                                      *
*----------------------------------------------------------------------*
*