5 FUNCTION bldcode (BDD, KTYPE,KAGE) RESULT(KCODE)
15 INTEGER,
DIMENSION(:),
INTENT(IN) :: ktype
16 INTEGER,
DIMENSION(:),
INTENT(IN) :: kage
17 INTEGER,
DIMENSION(SIZE(KTYPE)) :: kcode
24 icode_age=bdd%NDESC_AGE_LIST(bdd%NDESC_AGE)
25 DO jage=bdd%NDESC_AGE,1,-1
26 IF (bdd%NDESC_AGE_DATE(jage)>=kage(jl)) icode_age = bdd%NDESC_AGE_LIST(jage)
28 kcode(jl) = 100*ktype(jl)+icode_age
integer function, dimension(size(ktype)) bldcode(BDD, KTYPE, KAGE)