program main

    double precision :: A, Jsc, Jm, Isc, Im

    A   = 30.15     ! Área del PV (cm2)
    
    Jsc = 0.01720   ! Corriente de corto circuito (A)
    Jm  = 0.01614   ! Corriente de MPPT (A) 

    Isc = Jsc*A
    Im  = Jm*A

    Voc = 2.768
    Vm  = 2.360

! Corriente de saturación inversa del diodo (I0)
! Fotocorriente generada (IL) 


    print *, "Isc (A): ", Isc
    print *, "Imp (A): ", Im

    print *, "Voc (V): ", Voc
    print *, "Vmp (V): ", Vm

end program main