Modify a force during the execution of Lagamine automatically if some special conditions depending on the user is fulfilled. The user is identified by its IDENT, its condition is written in FORTRAN in routine OCASFO.

DATA : IMDIS

FOMADA(I,1) = nodal forces

FOMADA(I,1) = nodal force
FOMADA(I,2) = nodal mass
FOMADA(I,3) = nodal damping

If IMDIS > 10, number of column is increased by 1 to put dead load (used in ELEMB).

Use of OCASFO possible only in static analysis (could be improved)
If IMDIS=2, a second column is put in FOMADA. In OCASFO, you compute this column according your own IDENT or its value is initialized to 1.
In NORME1, when you applied your external forces :
FORCE(I) = FOMADA(I,1)*FMULT*FOMADA(I,2)
So your radial forces usually depending only on FMULT (force multiplier in * EX.DAT) can be corrected by another term.

In deepdrawing, the force applied on the blankholder must disappear, if your blank is becoming vertical. As you do not know when this happens, it is difficult to adapt your FMULT. The problem is also that FMULT cannot be negative so you should use *.LOA a non radial history of your blankholder force, but you do not know in advance such a function.
In this case, in OCASFO for instance, according to the location of the point B in comparison to the point A location, the force applied on the blankholder is decreased.