*KEEP,CJOINT.
       COMMON/ CJOINT/IBERTP,NBERTP
C