From cdeb3ecb1f7f051a9e13c932e7de74e4be1a1d52 Mon Sep 17 00:00:00 2001
From: vijaygopalchilkuri <vijay.gopal.c@gmail.com>
Date: Fri, 21 Jun 2013 15:10:46 +0200
Subject: [PATCH] working prob1

---
 problem1/IRPF90_man/fact.l                |  16 ++++++
 problem1/IRPF90_man/limit.l               |  16 ++++++
 problem1/IRPF90_man/nfact.l               |  16 ++++++
 problem1/IRPF90_man/sum.l                 |  16 ++++++
 problem1/IRPF90_temp/Makefile             |  12 +++++
 problem1/IRPF90_temp/README.md            |   7 +++
 problem1/IRPF90_temp/fact.irp.F90         |  62 ++++++++++++++++++++++
 problem1/IRPF90_temp/fact.irp.f           |  14 +++++
 problem1/IRPF90_temp/fact.irp.module.F90  |  12 +++++
 problem1/IRPF90_temp/fact.irp.module.o    | Bin 0 -> 1030 bytes
 problem1/IRPF90_temp/fact.irp.o           | Bin 0 -> 4672 bytes
 problem1/IRPF90_temp/fact_mod.mod         |  28 ++++++++++
 problem1/IRPF90_temp/irp_stack.irp.F90    |  38 +++++++++++++
 problem1/IRPF90_temp/irp_stack.irp.o      | Bin 0 -> 1704 bytes
 problem1/IRPF90_temp/irp_stack_mod.mod    |  42 +++++++++++++++
 problem1/IRPF90_temp/irp_touches.irp.F90  |   9 ++++
 problem1/IRPF90_temp/irp_touches.irp.o    | Bin 0 -> 1568 bytes
 problem1/IRPF90_temp/irpf90.make          |  43 +++++++++++++++
 problem1/IRPF90_temp/irpf90_entities      |   4 ++
 problem1/IRPF90_temp/limit.irp.F90        |  29 ++++++++++
 problem1/IRPF90_temp/limit.irp.f          |  11 ++++
 problem1/IRPF90_temp/limit.irp.module.F90 |  13 +++++
 problem1/IRPF90_temp/limit.irp.module.o   | Bin 0 -> 1081 bytes
 problem1/IRPF90_temp/limit.irp.o          | Bin 0 -> 2920 bytes
 problem1/IRPF90_temp/limit_mod.mod        |  31 +++++++++++
 problem1/IRPF90_temp/prob1                | Bin 0 -> 12720 bytes
 problem1/IRPF90_temp/prob1.irp.F90        |  21 ++++++++
 problem1/IRPF90_temp/prob1.irp.f          |   8 +++
 problem1/IRPF90_temp/prob1.irp.module.F90 |  10 ++++
 problem1/IRPF90_temp/prob1.irp.module.o   | Bin 0 -> 934 bytes
 problem1/IRPF90_temp/prob1.irp.o          | Bin 0 -> 2696 bytes
 problem1/IRPF90_temp/prob1_mod.mod        |  22 ++++++++
 problem1/IRPF90_temp/sum.irp.F90          |  46 ++++++++++++++++
 problem1/IRPF90_temp/sum.irp.f            |  19 +++++++
 problem1/IRPF90_temp/sum.irp.module.F90   |  12 +++++
 problem1/IRPF90_temp/sum.irp.module.o     | Bin 0 -> 1025 bytes
 problem1/IRPF90_temp/sum.irp.o            | Bin 0 -> 2328 bytes
 problem1/IRPF90_temp/sum_mod.mod          |  26 +++++++++
 problem1/Makefile                         |  12 +++++
 problem1/README.md                        |   7 +++
 problem1/fact.irp.f                       |  14 +++++
 problem1/inp                              |   4 ++
 problem1/irpf90.make                      |  43 +++++++++++++++
 problem1/irpf90_entities                  |   4 ++
 problem1/limit.irp.f                      |  11 ++++
 problem1/prob1                            | Bin 0 -> 12720 bytes
 problem1/prob1.irp.f                      |   8 +++
 problem1/sum.irp.f                        |  19 +++++++
 48 files changed, 705 insertions(+)
 create mode 100644 problem1/IRPF90_man/fact.l
 create mode 100644 problem1/IRPF90_man/limit.l
 create mode 100644 problem1/IRPF90_man/nfact.l
 create mode 100644 problem1/IRPF90_man/sum.l
 create mode 100644 problem1/IRPF90_temp/Makefile
 create mode 100644 problem1/IRPF90_temp/README.md
 create mode 100644 problem1/IRPF90_temp/fact.irp.F90
 create mode 100644 problem1/IRPF90_temp/fact.irp.f
 create mode 100644 problem1/IRPF90_temp/fact.irp.module.F90
 create mode 100644 problem1/IRPF90_temp/fact.irp.module.o
 create mode 100644 problem1/IRPF90_temp/fact.irp.o
 create mode 100644 problem1/IRPF90_temp/fact_mod.mod
 create mode 100644 problem1/IRPF90_temp/irp_stack.irp.F90
 create mode 100644 problem1/IRPF90_temp/irp_stack.irp.o
 create mode 100644 problem1/IRPF90_temp/irp_stack_mod.mod
 create mode 100644 problem1/IRPF90_temp/irp_touches.irp.F90
 create mode 100644 problem1/IRPF90_temp/irp_touches.irp.o
 create mode 100644 problem1/IRPF90_temp/irpf90.make
 create mode 100644 problem1/IRPF90_temp/irpf90_entities
 create mode 100644 problem1/IRPF90_temp/limit.irp.F90
 create mode 100644 problem1/IRPF90_temp/limit.irp.f
 create mode 100644 problem1/IRPF90_temp/limit.irp.module.F90
 create mode 100644 problem1/IRPF90_temp/limit.irp.module.o
 create mode 100644 problem1/IRPF90_temp/limit.irp.o
 create mode 100644 problem1/IRPF90_temp/limit_mod.mod
 create mode 100644 problem1/IRPF90_temp/prob1
 create mode 100644 problem1/IRPF90_temp/prob1.irp.F90
 create mode 100644 problem1/IRPF90_temp/prob1.irp.f
 create mode 100644 problem1/IRPF90_temp/prob1.irp.module.F90
 create mode 100644 problem1/IRPF90_temp/prob1.irp.module.o
 create mode 100644 problem1/IRPF90_temp/prob1.irp.o
 create mode 100644 problem1/IRPF90_temp/prob1_mod.mod
 create mode 100644 problem1/IRPF90_temp/sum.irp.F90
 create mode 100644 problem1/IRPF90_temp/sum.irp.f
 create mode 100644 problem1/IRPF90_temp/sum.irp.module.F90
 create mode 100644 problem1/IRPF90_temp/sum.irp.module.o
 create mode 100644 problem1/IRPF90_temp/sum.irp.o
 create mode 100644 problem1/IRPF90_temp/sum_mod.mod
 create mode 100644 problem1/Makefile
 create mode 100644 problem1/README.md
 create mode 100644 problem1/fact.irp.f
 create mode 100644 problem1/inp
 create mode 100644 problem1/irpf90.make
 create mode 100644 problem1/irpf90_entities
 create mode 100644 problem1/limit.irp.f
 create mode 100755 problem1/prob1
 create mode 100644 problem1/prob1.irp.f
 create mode 100644 problem1/sum.irp.f

diff --git a/problem1/IRPF90_man/fact.l b/problem1/IRPF90_man/fact.l
new file mode 100644
index 0000000..630b304
--- /dev/null
+++ b/problem1/IRPF90_man/fact.l
@@ -0,0 +1,16 @@
+.TH "IRPF90 entities" l fact "IRPF90 entities" fact
+.SH Declaration
+.nf
+integer, allocatable	:: fact	(nfact)
+.ni
+.SH Description
+! enter the factors
+.SH File
+.P
+fact.irp.f
+.SH Needs
+limit
+.br
+.SH Needed by
+sum
+.br
diff --git a/problem1/IRPF90_man/limit.l b/problem1/IRPF90_man/limit.l
new file mode 100644
index 0000000..b5d70f7
--- /dev/null
+++ b/problem1/IRPF90_man/limit.l
@@ -0,0 +1,16 @@
+.TH "IRPF90 entities" l limit "IRPF90 entities" limit
+.SH Declaration
+.nf
+integer	:: limit	
+integer	:: nfact	
+.ni
+.SH Description
+! enter limit
+.SH File
+.P
+limit.irp.f
+.SH Needed by
+fact
+.br
+sum
+.br
diff --git a/problem1/IRPF90_man/nfact.l b/problem1/IRPF90_man/nfact.l
new file mode 100644
index 0000000..d13a898
--- /dev/null
+++ b/problem1/IRPF90_man/nfact.l
@@ -0,0 +1,16 @@
+.TH "IRPF90 entities" l nfact "IRPF90 entities" nfact
+.SH Declaration
+.nf
+integer	:: limit	
+integer	:: nfact	
+.ni
+.SH Description
+! enter limit
+.SH File
+.P
+limit.irp.f
+.SH Needed by
+fact
+.br
+sum
+.br
diff --git a/problem1/IRPF90_man/sum.l b/problem1/IRPF90_man/sum.l
new file mode 100644
index 0000000..0c1a7f7
--- /dev/null
+++ b/problem1/IRPF90_man/sum.l
@@ -0,0 +1,16 @@
+.TH "IRPF90 entities" l sum "IRPF90 entities" sum
+.SH Declaration
+.nf
+integer	:: sum	
+.ni
+.SH Description
+! calculates the sum of the factors of
+! two integers between 1 to limit
+.SH File
+.P
+sum.irp.f
+.SH Needs
+fact
+.br
+limit
+.br
diff --git a/problem1/IRPF90_temp/Makefile b/problem1/IRPF90_temp/Makefile
new file mode 100644
index 0000000..4602bb7
--- /dev/null
+++ b/problem1/IRPF90_temp/Makefile
@@ -0,0 +1,12 @@
+IRPF90 = irpf90  #-a -d
+FC     = gfortran
+FCFLAGS= -O2
+
+SRC=
+OBJ=
+LIB=
+
+include irpf90.make
+
+irpf90.make: $(wildcard *.irp.f)
+	$(IRPF90)
diff --git a/problem1/IRPF90_temp/README.md b/problem1/IRPF90_temp/README.md
new file mode 100644
index 0000000..2f685bb
--- /dev/null
+++ b/problem1/IRPF90_temp/README.md
@@ -0,0 +1,7 @@
+PROBLEM 1
+----------
+
+* If we list all the natural numbers below 10 that are multiples of 3 or 5, we
+  get 3, 5, 6 and 9. The sum of these multiples is 23.
+
+  Find the sum of all the multiples of 3 or 5 below 1000.
diff --git a/problem1/IRPF90_temp/fact.irp.F90 b/problem1/IRPF90_temp/fact.irp.F90
new file mode 100644
index 0000000..6fdae35
--- /dev/null
+++ b/problem1/IRPF90_temp/fact.irp.F90
@@ -0,0 +1,62 @@
+! -*- F90 -*-
+!
+!-----------------------------------------------!
+! This file was generated with the irpf90 tool. !
+!                                               !
+!           DO NOT MODIFY IT BY HAND            !
+!-----------------------------------------------!
+
+subroutine provide_fact
+  use limit_mod
+  use fact_mod
+  implicit none
+  character*(12) :: irp_here = 'provide_fact'
+  integer                   :: irp_err 
+  logical                   :: irp_dimensions_OK
+  if (.not.limit_is_built) then
+    call provide_limit
+  endif
+ if (allocated (fact) ) then
+  irp_dimensions_OK = .True.
+  irp_dimensions_OK = irp_dimensions_OK.AND.(SIZE(fact,1)==(nfact))
+  if (.not.irp_dimensions_OK) then
+   deallocate(fact,stat=irp_err)
+   if (irp_err /= 0) then
+     print *, irp_here//': Deallocation failed: fact'
+     print *, ' size: (nfact)'
+   endif
+   if ((nfact>0)) then
+    allocate(fact(nfact),stat=irp_err)
+    if (irp_err /= 0) then
+     print *, irp_here//': Allocation failed: fact'
+     print *, ' size: (nfact)'
+    endif
+   endif
+  endif
+ else
+   if ((nfact>0)) then
+    allocate(fact(nfact),stat=irp_err)
+    if (irp_err /= 0) then
+     print *, irp_here//': Allocation failed: fact'
+     print *, ' size: (nfact)'
+    endif
+   endif
+ endif
+ if (.not.fact_is_built) then
+  call bld_fact
+  fact_is_built = .True.
+
+ endif
+end subroutine provide_fact
+
+subroutine bld_fact
+  use limit_mod
+  use fact_mod
+    implicit none                                                      ! fact.irp.f:   6
+  character*(4) :: irp_here = 'fact'                                   ! fact.irp.f:   1
+    integer :: i                                                       ! fact.irp.f:   7
+    write(6,*)'enter',nfact,'integers'                                 ! fact.irp.f:   9
+    do i=1,nfact                                                       ! fact.irp.f:  10
+        read(5,*)fact(i)                                               ! fact.irp.f:  11
+    enddo                                                              ! fact.irp.f:  12
+end subroutine bld_fact
diff --git a/problem1/IRPF90_temp/fact.irp.f b/problem1/IRPF90_temp/fact.irp.f
new file mode 100644
index 0000000..9d6f82a
--- /dev/null
+++ b/problem1/IRPF90_temp/fact.irp.f
@@ -0,0 +1,14 @@
+BEGIN_PROVIDER [integer, fact, (nfact)]
+    BEGIN_DOC
+    ! enter the factors
+    END_DOC
+
+    implicit none
+    integer :: i
+
+    write(6,*)'enter',nfact,'integers'
+    do i=1,nfact
+        read(5,*)fact(i)
+    enddo
+
+END_PROVIDER
diff --git a/problem1/IRPF90_temp/fact.irp.module.F90 b/problem1/IRPF90_temp/fact.irp.module.F90
new file mode 100644
index 0000000..33916a2
--- /dev/null
+++ b/problem1/IRPF90_temp/fact.irp.module.F90
@@ -0,0 +1,12 @@
+! -*- F90 -*-
+!
+!-----------------------------------------------!
+! This file was generated with the irpf90 tool. !
+!                                               !
+!           DO NOT MODIFY IT BY HAND            !
+!-----------------------------------------------!
+
+module fact_mod
+  integer, allocatable :: fact (:)
+  logical :: fact_is_built = .False.
+end module fact_mod
diff --git a/problem1/IRPF90_temp/fact.irp.module.o b/problem1/IRPF90_temp/fact.irp.module.o
new file mode 100644
index 0000000000000000000000000000000000000000..382bc0c02d0695bf97fe6c5c876597a2890cbf0d
GIT binary patch
literal 1030
zcmbtS%}T>S5S}*m@7RMNh!9UI*rgPU=s^N)(~Ex>j}nqJVz6nY*@B*Y9UsHT@DaTF
z1Ui%KG|3Q84rITdnaS)f`!>3Cn~er=G~faX#V){mLBYwm16!~TFdhuf?ZaUd#Qw}a
zQKzcc=^y0;K&7vV_5(z{$nlYxj$SmViLZT7L7IXJ=SdRH(3{P5q{i2GomBhbQ)%vh
z=q@(Xxp2poa4M=0t%7E3A6M$PgzpH=QuZHUViUi=`fs_>pe^(<YMS2_zGL*B@Tr!9
zv0vg@!Yub?QR3XkRvU@jJLR~4#DxZBKk25ZA^By@Pm`lN+Q5&HVkZZDYxVO#%%)sZ
z#~|mkFOlk6@ckow($?zss#&Y{BvfB_L*%bje_)h_lVxn9(JuXmD|*JaO~dLPJouqj
j@#0w}^T~1=Dfg@ko=2{Sj(2r4%tf4f!7`rex+MGpMj%2j

literal 0
HcmV?d00001

diff --git a/problem1/IRPF90_temp/fact.irp.o b/problem1/IRPF90_temp/fact.irp.o
new file mode 100644
index 0000000000000000000000000000000000000000..860938104c6623b6159acbadd7952b37689171e5
GIT binary patch
literal 4672
zcmcJSU2IfE6vt<Gs}zd61w}zLY+_X!>DrPKXj8NewY^0ALWxl{H@CZY*_G~Yy?YS^
zf+foung&85FFu&?puTA0lLl(UYB9t|i7&#FJ^%)qpijgY*Ylr`_H??-i}56P&&+Sm
zoO5RG%$?cyp4l-JjYNczh<HlO*9;ZndeeNlUl#jCT(pQ?FFQwXUZ)<;#5L#QU|TcV
zNVoPvH?@tcYSZ1MuhS!@?xLUbC{YhZ;Cdl}mj%SwPIjPYb@s?xmD$MGNYttP5KXLG
z6uys|Sa<}L!JLW9PHYv`gfj^!J62{Q&WY|*Q%FQxsnndF8~Z+Sj$Xh3cfUD9aWLH0
zs1TFVNA*(T*d^&}tMpZ^C64_f>&o{NQccOW^utnBrXx<m`Mzf++%H2_uQ(T_6<Uv^
zofCZ@p>$S`ty*&ugSS;m)oEu!8YYfCg85FX5UTT15LJ{N7ZqzHy1yECb$VYyI%cLv
zFJNf9G0v`O6?JlMVAaRrA}#CH+L3e4ch{nK%Ch=8>`xqS>%_X)f<ck)U$1oMxYFHo
z3uE9M5ixLf4gJdE)N(306IZ`|l(fnQ-lk9`JWo`K2Wcmh8;2GLUq_tm{@>t9<cCb_
zMv^U4ak7yM+#1F2?mxBKSWtQ=pYh$Smkzh@d~v9!(+&N?*psNI^1)b&i13S{ALQw0
zj~|qKlLMoprL-63OT}c?%a8h*Uef6>S<WBydz0&nsI-gWZQH0a=#S*RVzN86IkmB4
zQ@biqLXi8E5|M*DMdUzhWbN`L&8KKdttbAFZkvT3h_}8U9f+^4#D?SJP0?TDtBDN6
zo2e;Dk3$b6LkkMFmFRH%OjGpAGHEo}B2wjd3!yhcIt-M~nNr}7da2Mq5Q<dB3q6q<
zDVIemD4_!Lu2h$)id4E(D9~JpRIwELsp02$b(BLdy_XE&#m~9fz$^GNm;dsUq|Vq`
zSgu_9b>)>9r$V$YtctZ%XP?ly*5g>@B**1$76Mho!8}4%D<vKy4Q_=Ir!~-SwDsax
z8>j_7?fz$Mpgq{Rb`eMXjk?_^(;vH*3v3}q_v<p21DA6;em93yHvJ67dIIY-K<ioE
zUw&L!o9S=#OVnn{%uFn^2dW!w+pO+y=ijRP=eScUoA+n1M}>N!T30FyGcLTxrSzEo
z=KZfAR_|3E&`!sco4H>*f7I>VVVu)}&gjN_h_%pT$45@};y1&XWZVj9Rh3blU)VK?
zKWcTFC|-RpvAUTczj`wat~ZwzB(`Wb3%b)_oy?Dv@2l9{tSodClW%MxLoFtjEQ0uk
zu4Lnq-%?`O-}W~HoqHPaHyZGu0so)@|EvN3rUCz{0l(RR$LJMeytk+wBF_WTD~Q({
zZ)XF(sR8e6z+Y>?a}BsyaJbST>*oBxPjzkCvQdnTX5?Ay3U^Po6oi3SbjzW;KgfqZ
zL*V7CAGqn97tnD_C2iu4<_r1IEtE3ub1w|K@-VK~Q6J}~+oE7@rc~q+DT%=MGQw5q
z8UGl{9o(}f?LhhE*A5!0m9!c{zU+?d%a4X48~DB`c(`@c3-8Vu8n3E9i=8eN>B2%2
zNw=6i0^c_XJ|}#)%KJVse4elu|Heg@WHXf^%jn@}^3#$kdwk1`{dUb^k3DV#=K=)&
z6Z9DS-GC&<zsV`Bu(ap?_cD%kZT!5=IN}<9N^^U>pEG;RiLw8RaU2=uONV_5LH^*z
z{t_Sw_`UQPei@Ji9Ctm#{{kcdzn>n%@y7yU`(I=6Hf1J~7B_ds4UF@7*vj|=<io@r
zVjSbTtzLW0XB=mvu`e;s=ixBpJZ^<?*qih2q{Yqo`=Q0nx9ekzlPf7-SlrCdmyF}i
zWb!}HIM#&W7Z``VnTIQkKgjHVW1P>!pN#W)Xu*pmf#UPIigE6zU2}Wg4l#SaPj_f;
z_7V0B<W<J!Pg^1K%n$C&W*!bP&i7rFalY?PYHsKGX#+mP{P6sL)ZEVhXU2K{SD7E4
z|82&3{!!f-%{>1W&F%a<m_5(4Pjize?h}v!X3yh3%Q%mll)cn?&?!r@!{WDe{a<Jr
B9R~ma

literal 0
HcmV?d00001

diff --git a/problem1/IRPF90_temp/fact_mod.mod b/problem1/IRPF90_temp/fact_mod.mod
new file mode 100644
index 0000000..f7b4e9a
--- /dev/null
+++ b/problem1/IRPF90_temp/fact_mod.mod
@@ -0,0 +1,28 @@
+GFORTRAN module version '9' created from IRPF90_temp/fact.irp.module.F90
+MD5:39812aca873c55fd15ab2356e3e48575 -- If you edit this, you'll get what you deserve.
+
+(() () () () () () () () () () () () () () () () () () () () () () () ()
+() () ())
+
+()
+
+()
+
+()
+
+()
+
+()
+
+(2 'fact' 'fact_mod' '' 1 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN
+IMPLICIT-SAVE 0 0 ALLOCATABLE DIMENSION) (INTEGER 4 0 0 0 INTEGER ()) 0
+0 () (1 0 DEFERRED () ()) 0 () () () 0 0)
+3 'fact_is_built' 'fact_mod' '' 1 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC
+UNKNOWN IMPLICIT-SAVE 0 0) (LOGICAL 4 0 0 0 LOGICAL ()) 0 0 () () 0 () ()
+() 0 0)
+4 'fact_mod' 'fact_mod' '' 1 ((MODULE UNKNOWN-INTENT UNKNOWN-PROC
+UNKNOWN UNKNOWN 0 0) (UNKNOWN 0 0 0 0 UNKNOWN ()) 0 0 () () 0 () () () 0
+0)
+)
+
+('fact' 0 2 'fact_is_built' 0 3 'fact_mod' 0 4)
diff --git a/problem1/IRPF90_temp/irp_stack.irp.F90 b/problem1/IRPF90_temp/irp_stack.irp.F90
new file mode 100644
index 0000000..5869495
--- /dev/null
+++ b/problem1/IRPF90_temp/irp_stack.irp.F90
@@ -0,0 +1,38 @@
+
+module irp_stack_mod
+  integer, parameter            :: STACKMAX=1000
+  character*(128),allocatable   :: irp_stack(:,:)
+  double precision,allocatable  :: irp_cpu(:,:)
+  integer,allocatable           :: stack_index(:)
+  logical                       :: alloc = .False.
+  character*(128)               :: white = ''
+end module
+
+subroutine irp_enter(irp_where)
+ use irp_stack_mod
+ integer       :: ithread
+ integer       :: nthread
+ character*(*) :: irp_where
+
+!$OMP CRITICAL
+ ithread = 0
+ nthread = 1
+
+!$OMP END CRITICAL
+
+
+end subroutine
+
+subroutine irp_leave (irp_where)
+ use irp_stack_mod
+  character*(*) :: irp_where
+  integer       :: ithread
+  double precision :: cpu
+
+!$OMP CRITICAL
+  ithread = 0
+
+
+!$OMP END CRITICAL
+end subroutine
+
diff --git a/problem1/IRPF90_temp/irp_stack.irp.o b/problem1/IRPF90_temp/irp_stack.irp.o
new file mode 100644
index 0000000000000000000000000000000000000000..9b8cb95b1f8b34f33ceac7361a9ceb1f2d340655
GIT binary patch
literal 1704
zcmc(f%}x|S5XWm+)Ky4e(Sr#p!wE>FLkz^|!A!Dz#rTmJO}sU|yG?e(&Mui9b@d`9
zK7dCrCccGN6JCU)2QGv&fvTCRq0@{f4pcJpuliN>banU4d|i97J`w~V7Qiz&kAwpJ
zbYPU>2*#ia$NSr4YGUSlMvwQ;$B-9ZvB5^Y{xqClwT+JHh0E%(dbGH*kUP}h9lD_f
zU*144oD8PNZ&ZKaS|^d+%Q65Xti+Z)25Rs*PE7+fO>%9Em)c<ps%26GsxcUVYWCyU
z_K@}ZsZ|@V-YpJN)7$}-*sf8wt+x{sTb|)^GL6IO$gX>ji8!9}IIYdKSqx}=#f9i^
zalFSW5{kn*hg!wUAAi94LspSc9M*@ZG{5Y(qz~A+FMyS5$wXHiKTGiK#0?x@#tC|k
z4ly}<;W9x~fZU<Ay0(VFs0-L1@`1>@ZXzcn<L`1^4b|T}N=4l0TdouF`!DSsi{Eoo
zZ60t78O`m_Pkoim|Mwau(Ej97-2M5Bgy&G*C>))7I14MXxn8nz@f5hetV8OXo4oKG
z|7*w#DkUd%8&gwGKk^<tU@qT_@CD>Gr_Vi%$?AC3oSl?&Z!(Wi$u@I=Z>UuNn`7a>
znEzv5yjz`QS7(0_g`Qe}vIIo%FJlv(xm{~MS`Atkl{)UX^vl<)`cu1;+R{w+MBVAN
i?65RnJnO&N=I)2moauJ^xcHFQLHj3rNNCyPvd?E1*Ok)%

literal 0
HcmV?d00001

diff --git a/problem1/IRPF90_temp/irp_stack_mod.mod b/problem1/IRPF90_temp/irp_stack_mod.mod
new file mode 100644
index 0000000..4c7ba10
--- /dev/null
+++ b/problem1/IRPF90_temp/irp_stack_mod.mod
@@ -0,0 +1,42 @@
+GFORTRAN module version '9' created from IRPF90_temp/irp_stack.irp.F90
+MD5:f65ae2717456353521ba97c4b0936c36 -- If you edit this, you'll get what you deserve.
+
+(() () () () () () () () () () () () () () () () () () () () () () () ()
+() () ())
+
+()
+
+()
+
+()
+
+()
+
+()
+
+(2 'alloc' 'irp_stack_mod' '' 1 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC
+UNKNOWN IMPLICIT-SAVE 0 0) (LOGICAL 4 0 0 0 LOGICAL ()) 0 0 () () 0 () ()
+() 0 0)
+3 'irp_cpu' 'irp_stack_mod' '' 1 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC
+UNKNOWN IMPLICIT-SAVE 0 0 ALLOCATABLE DIMENSION) (REAL 8 0 0 0 REAL ())
+0 0 () (2 0 DEFERRED () () () ()) 0 () () () 0 0)
+4 'irp_stack' 'irp_stack_mod' '' 1 ((VARIABLE UNKNOWN-INTENT
+UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE 0 0 ALLOCATABLE DIMENSION) (
+CHARACTER 1 0 0 0 CHARACTER ((CONSTANT (INTEGER 4 0 0 0 INTEGER ()) 0
+'128'))) 0 0 () (2 0 DEFERRED () () () ()) 0 () () () 0 0)
+5 'irp_stack_mod' 'irp_stack_mod' '' 1 ((MODULE UNKNOWN-INTENT
+UNKNOWN-PROC UNKNOWN UNKNOWN 0 0) (UNKNOWN 0 0 0 0 UNKNOWN ()) 0 0 () ()
+0 () () () 0 0)
+6 'stack_index' 'irp_stack_mod' '' 1 ((VARIABLE UNKNOWN-INTENT
+UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE 0 0 ALLOCATABLE DIMENSION) (INTEGER 4
+0 0 0 INTEGER ()) 0 0 () (1 0 DEFERRED () ()) 0 () () () 0 0)
+7 'stackmax' 'irp_stack_mod' '' 1 ((PARAMETER UNKNOWN-INTENT
+UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE 0 0) (INTEGER 4 0 0 0 INTEGER ()) 0 0
+() (CONSTANT (INTEGER 4 0 0 0 INTEGER ()) 0 '1000') () 0 () () () 0 0)
+8 'white' 'irp_stack_mod' '' 1 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC
+UNKNOWN IMPLICIT-SAVE 0 0) (CHARACTER 1 0 0 0 CHARACTER ((CONSTANT (
+INTEGER 4 0 0 0 INTEGER ()) 0 '128'))) 0 0 () () 0 () () () 0 0)
+)
+
+('alloc' 0 2 'irp_cpu' 0 3 'irp_stack' 0 4 'irp_stack_mod' 0 5
+'stack_index' 0 6 'stackmax' 0 7 'white' 0 8)
diff --git a/problem1/IRPF90_temp/irp_touches.irp.F90 b/problem1/IRPF90_temp/irp_touches.irp.F90
new file mode 100644
index 0000000..89f5215
--- /dev/null
+++ b/problem1/IRPF90_temp/irp_touches.irp.F90
@@ -0,0 +1,9 @@
+subroutine irp_finalize_367124922
+ use fact_mod
+ use sum_mod
+ use limit_mod
+  if (allocated(fact)) then
+    fact_is_built = .False.
+    deallocate(fact)
+  endif
+end
diff --git a/problem1/IRPF90_temp/irp_touches.irp.o b/problem1/IRPF90_temp/irp_touches.irp.o
new file mode 100644
index 0000000000000000000000000000000000000000..1b96d83b9e60265fe63f5a94438c64b0104a979b
GIT binary patch
literal 1568
zcmbtU!D<vi5Ut5ZGtm$>A%YNvAqP=#n`BK42`DRx$s%e*@Zcrm?4*|++}RB?9f-Mj
z2%bd9XZRU{g1_Ryi+J%MtW`Z-vrRj>Xu)>9dat^xr@FV_K7710;d#L3!F?D<%mM@!
z+0t|iW?&lH@9$C6em7D}?bGl6*9%(2;hW~iar^X(|MN5KZf$J_H@9Uci3Y){SQpL4
z+N}c6gasPVyp!kP9oN0ZnJNDaYZHG>D*(&npUu|yXMF&Xze!cpL9epH_ZVfe9|<Lo
z6^MgKMIbtP4k8|=sT?3T7%C}tpT211DvDo&(CM-lcC#pzrqqAC09T;aU36AznOJ{|
zrPVD=a1no#4oBff)8|)4yM&(VU`MoFHU0*A;%g>mcgVo;Zmrv>)0+P}e+B1KefK-L
z{&m!Bqg*ofn-<oB89vy7g?S!RdkBb|V8Zw_<K2C6|2X{-0=Flm`Q|{m&(!}Z;z>kf
zeh#tQJJLVVfcCO*<>>CeYVVXBm`w#{!e!*Bwp)K1xvKgtbAMvgZFB3}nvE%M5`K(q
zj&ZF#J!T4DtK13gud2huyZ;(qhdTYY)u4QQO7RM!d22s>-VNmIW!4xxIEUXqhleCP
z4At-`?#Wyr7CRfun(HQmsGpq3@Xp=!mFDV3vl&7dcB5E@>F^+YvbU{+DlSa&uyd63
x6?8LcULrn2y2o^;zek15BPJuB?%*%O)4M@NJlze>Um_BX*Wvs?vjtBY+aH!<gkS&w

literal 0
HcmV?d00001

diff --git a/problem1/IRPF90_temp/irpf90.make b/problem1/IRPF90_temp/irpf90.make
new file mode 100644
index 0000000..d4c7de5
--- /dev/null
+++ b/problem1/IRPF90_temp/irpf90.make
@@ -0,0 +1,43 @@
+SRC += IRPF90_temp/irp_stack.irp.F90 IRPF90_temp/irp_touches.irp.F90 IRPF90_temp/prob1.irp.F90 IRPF90_temp/prob1.irp.module.F90 IRPF90_temp/fact.irp.F90 IRPF90_temp/fact.irp.module.F90 IRPF90_temp/sum.irp.F90 IRPF90_temp/sum.irp.module.F90 IRPF90_temp/limit.irp.F90 IRPF90_temp/limit.irp.module.F90
+OBJ += IRPF90_temp/irp_stack.irp.o IRPF90_temp/fact.irp.o IRPF90_temp/fact.irp.module.o IRPF90_temp/sum.irp.o IRPF90_temp/sum.irp.module.o IRPF90_temp/limit.irp.o IRPF90_temp/limit.irp.module.o
+OBJ1 = $(patsubst %, IRPF90_temp/%,$(notdir $(OBJ))) IRPF90_temp/irp_touches.irp.o 
+ALL = prob1
+ALL_OBJ = prob1.irp.module.o prob1.irp.o
+ALL_OBJ1 = $(patsubst %, IRPF90_temp/%,$(notdir $(ALL_OBJ)))
+all:$(ALL)
+	@$(MAKE) -s move
+prob1: IRPF90_temp/prob1.irp.o IRPF90_temp/prob1.irp.module.o $(OBJ1)
+	$(FC) -o $@ IRPF90_temp/$@.irp.o IRPF90_temp/$@.irp.module.o $(OBJ1) $(LIB)
+	@$(MAKE) -s move
+IRPF90_temp/prob1.irp.o: IRPF90_temp/prob1.irp.module.o  IRPF90_temp/sum.irp.module.o 
+IRPF90_temp/fact.irp.o: IRPF90_temp/fact.irp.module.o  IRPF90_temp/limit.irp.module.o 
+IRPF90_temp/sum.irp.o: IRPF90_temp/sum.irp.module.o  IRPF90_temp/limit.irp.module.o  IRPF90_temp/fact.irp.module.o 
+IRPF90_temp/limit.irp.o: IRPF90_temp/limit.irp.module.o  
+IRPF90_temp/irp_touches.irp.o:  IRPF90_temp/fact.irp.o IRPF90_temp/fact.irp.o  IRPF90_temp/sum.irp.o IRPF90_temp/sum.irp.o  IRPF90_temp/limit.irp.o IRPF90_temp/limit.irp.o
+IRPF90_temp/%.irp.module.o: IRPF90_temp/%.irp.module.F90
+	$(FC) $(FCFLAGS) -c IRPF90_temp/$*.irp.module.F90 -o IRPF90_temp/$*.irp.module.o
+IRPF90_temp/%.irp.o: IRPF90_temp/%.irp.module.o IRPF90_temp/%.irp.F90
+	$(FC) $(FCFLAGS) -c IRPF90_temp/$*.irp.F90 -o IRPF90_temp/$*.irp.o
+IRPF90_temp/%.irp.o: IRPF90_temp/%.irp.F90
+	$(FC) $(FCFLAGS) -c IRPF90_temp/$*.irp.F90 -o IRPF90_temp/$*.irp.o
+IRPF90_temp/%.o: %.F90
+	$(FC) $(FCFLAGS) -c $*.F90 -o IRPF90_temp/$*.o
+IRPF90_temp/%.o: %.f90
+	$(FC) $(FCFLAGS) -c $*.f90 -o IRPF90_temp/$*.o
+IRPF90_temp/%.o: %.f
+	$(FC) $(FCFLAGS) -c $*.f -o IRPF90_temp/$*.o
+IRPF90_temp/%.o: %.F
+	$(FC) $(FCFLAGS) -c $*.F -o IRPF90_temp/$*.o
+IRPF90_temp/%.irp.F90: irpf90.make
+
+move:
+	@mv -f *.mod IRPF90_temp/ 2> /dev/null | DO_NOTHING=
+
+clean:
+	rm -rf $(EXE) $(OBJ1) $(ALL_OBJ1) $(ALL)
+
+veryclean:
+	- $(MAKE) clean
+
+	- rm -rf IRPF90_temp/ IRPF90_man/ irpf90.make irpf90_variables dist
+
diff --git a/problem1/IRPF90_temp/irpf90_entities b/problem1/IRPF90_temp/irpf90_entities
new file mode 100644
index 0000000..2eb2510
--- /dev/null
+++ b/problem1/IRPF90_temp/irpf90_entities
@@ -0,0 +1,4 @@
+fact.irp.f                : integer, allocatable      :: fact                      (nfact)
+limit.irp.f               : integer                   :: limit                     
+limit.irp.f               : integer                   :: nfact                     
+sum.irp.f                 : integer                   :: sum                       
diff --git a/problem1/IRPF90_temp/limit.irp.F90 b/problem1/IRPF90_temp/limit.irp.F90
new file mode 100644
index 0000000..0d61371
--- /dev/null
+++ b/problem1/IRPF90_temp/limit.irp.F90
@@ -0,0 +1,29 @@
+! -*- F90 -*-
+!
+!-----------------------------------------------!
+! This file was generated with the irpf90 tool. !
+!                                               !
+!           DO NOT MODIFY IT BY HAND            !
+!-----------------------------------------------!
+
+subroutine provide_limit
+  use limit_mod
+  implicit none
+  character*(13) :: irp_here = 'provide_limit'
+  integer                   :: irp_err 
+  logical                   :: irp_dimensions_OK
+ if (.not.limit_is_built) then
+  call bld_limit
+  limit_is_built = .True.
+
+ endif
+end subroutine provide_limit
+
+subroutine bld_limit
+  use limit_mod
+  character*(5) :: irp_here = 'limit'                                 ! limit.irp.f:   1
+    write(6,*)'limit?'                                                ! limit.irp.f:   6
+    read(5,*)limit                                                    ! limit.irp.f:   7
+    write(6,*)'nfact?'                                                ! limit.irp.f:   8
+    read(5,*)nfact                                                    ! limit.irp.f:   9
+end subroutine bld_limit
diff --git a/problem1/IRPF90_temp/limit.irp.f b/problem1/IRPF90_temp/limit.irp.f
new file mode 100644
index 0000000..d61342a
--- /dev/null
+++ b/problem1/IRPF90_temp/limit.irp.f
@@ -0,0 +1,11 @@
+BEGIN_PROVIDER [integer, limit]
+&BEGIN_PROVIDER [integer, nfact]
+    BEGIN_DOC
+    ! enter limit
+    END_DOC
+    write(6,*)'limit?'
+    read(5,*)limit
+    write(6,*)'nfact?'
+    read(5,*)nfact
+
+END_PROVIDER
diff --git a/problem1/IRPF90_temp/limit.irp.module.F90 b/problem1/IRPF90_temp/limit.irp.module.F90
new file mode 100644
index 0000000..6d14170
--- /dev/null
+++ b/problem1/IRPF90_temp/limit.irp.module.F90
@@ -0,0 +1,13 @@
+! -*- F90 -*-
+!
+!-----------------------------------------------!
+! This file was generated with the irpf90 tool. !
+!                                               !
+!           DO NOT MODIFY IT BY HAND            !
+!-----------------------------------------------!
+
+module limit_mod
+  integer :: limit 
+  logical :: limit_is_built = .False.
+  integer :: nfact 
+end module limit_mod
diff --git a/problem1/IRPF90_temp/limit.irp.module.o b/problem1/IRPF90_temp/limit.irp.module.o
new file mode 100644
index 0000000000000000000000000000000000000000..7e9170b1bd7facfaf336e3a97993f033afa5ec5e
GIT binary patch
literal 1081
zcmbtSOH0E*5S}*m1zvg)L4<lz!7fECq6Z1|b?|laC}Gn^3^u7WTc{`hjz7tt;8A~p
z&Lle~8QYTs+3ztkncYoZdsqExr2-rkxPV--3-Fdxa8vHW2CM=MI-T>zK{xP29XC$Y
zsXA`94>JOwl9$M6AJI%Rd}L;VxdAoOMuYN`1k`X6ML~>SJTZY9+}t%2qlZt0x&NU%
z*i7fb9hbr_sa(`@nzB7ysoxR4D>O^lzmJJ^e3tcZa-&7re}q2GZ;3kB>RsVeEd^t{
zz|(|X?u(+pxsR<n61jKEaet2sEy{k<RZ&Co!<wHqM|ZS_4<W^N2KcWnp8sw)rEML9
zoX@^Qs;j}*xAaLnzqeP;Itx!i^^0zZ{FU+xta5O&j4d?kh4*j;eSh*<GhSMs?~8pH
thf!!$IDJ;pWHcKGs(;o3&r59&E${la>%|XxX#TiaO_+H8EF3RM!w*Z}Oyd9m

literal 0
HcmV?d00001

diff --git a/problem1/IRPF90_temp/limit.irp.o b/problem1/IRPF90_temp/limit.irp.o
new file mode 100644
index 0000000000000000000000000000000000000000..d6f5be3719e93babd5c04a38ea974b2ffb39f9a3
GIT binary patch
literal 2920
zcmbtWOKTHR6u#-yHd;-i2tKM9q)0_O+G6o-1GYATk6Lv-Oqz)u%p_qlJ~vvbsJJQk
z58Mj6whK{PDB{MA;6G>=U0B?>5bOD7?oCf_Cm?!Ya?knBckVgoK4$V@_`<oCL_#P@
zh%;i<Qm7EqEvtGqRI?%_Iz(=AX_5H3XA8Ocq3$F+G^Tf8Z0&v+nXPR!F47}rpuK}e
z5h23Hh8cDeht05#%xH#I(*A0OuErVup@v<JGt_IKnrG@|G<GpLhvk?pcJ6sZ!9qMo
zka+w)X!|kSxhE@fQ%lJ(Vm@?WsdH0v$=UN`qvwtvwgShi9xAz>8<?(NH3<@-HCQg%
z<H4X9IeYd*rf0~>yLLHq#5`*D_YUlj6yy<NYcz<&{V|can@)6XY)?*8mhFV29mqCh
z9Z7vRjLt+V8TpQd9wB-#UQ4B~!T~XB_q@Q)(-`>CIH5G(DcNS=+zo_Tumf9|`C3hw
zegy{TeP*9Bg*jgFJf}?5awTxgkxSQmYk@s}lL(l_nXrn!?Kx4-|M<;NEZW0vbID30
z2Pcy>)1l(fU~6?ruaA%(c@H*{iK*l&h3gB(K8YJJm^{_;Dwm$?AUQDSzsC1bEK>E;
z!$sxCwc?`6Qe&2!(Ajkl=`SS#eREN93d@lK?63ml_*xQoYq*M6;}!BNol`%@fic{o
z#Ps^V$oNq{Dd}qe6l{~C?+JXzIwFSZ3+sR*q2h7BAe-sY_YQbQ7F317L~jeWUOVV%
zd7yvFfK7yLphwS-n&R>&C9zFQsF@TUFW|L`<&`+E5xZlkBd!wQaVrcwd?&6+VXV2$
z5yhx?-xy+qJJX24GDQ0tu#=E2tp4!bNEq%(dJS8M-X=KCRUCh!34Xr`KHUU=)dc_8
z1ph`j`pU=+?jakpKu=tq(PyUq(aDzzR`}tugmt4>@dMv3TeZNt<GX>wAmFv4<6Gks
zwohLu(sYW7vI><l4<+1p?1HdlBCk@gE?yprthf|zIdE<`K6A+_<jmSU;TKa>{mN~(
z;MAMZNKub&&C1_$O98D7&I1J3ou9@7AsXFH_<pTKG9Yo>MgGk>&G>j%DE=_RafcO-
z_Z~#g>qT(*PDqii_;)0ZysBnE4<wFv2=-a=pD-NnD22a}xSsb7<MV#sN?i4;dj7!p
zyx&g@=ly<_xSn^J@p-?$C62sXq>jOm=UeZ$gW<g2y$r{HCAAI%3`Y)ypJX`rKjpq>
RNQWRV9wn!wqHuNp{s0wYiRJ(R

literal 0
HcmV?d00001

diff --git a/problem1/IRPF90_temp/limit_mod.mod b/problem1/IRPF90_temp/limit_mod.mod
new file mode 100644
index 0000000..875daa4
--- /dev/null
+++ b/problem1/IRPF90_temp/limit_mod.mod
@@ -0,0 +1,31 @@
+GFORTRAN module version '9' created from IRPF90_temp/limit.irp.module.F90
+MD5:8353d8a4752d9f18be27e41075631cad -- If you edit this, you'll get what you deserve.
+
+(() () () () () () () () () () () () () () () () () () () () () () () ()
+() () ())
+
+()
+
+()
+
+()
+
+()
+
+()
+
+(2 'limit' 'limit_mod' '' 1 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC
+UNKNOWN IMPLICIT-SAVE 0 0) (INTEGER 4 0 0 0 INTEGER ()) 0 0 () () 0 () ()
+() 0 0)
+3 'limit_is_built' 'limit_mod' '' 1 ((VARIABLE UNKNOWN-INTENT
+UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE 0 0) (LOGICAL 4 0 0 0 LOGICAL ()) 0 0
+() () 0 () () () 0 0)
+4 'limit_mod' 'limit_mod' '' 1 ((MODULE UNKNOWN-INTENT UNKNOWN-PROC
+UNKNOWN UNKNOWN 0 0) (UNKNOWN 0 0 0 0 UNKNOWN ()) 0 0 () () 0 () () () 0
+0)
+5 'nfact' 'limit_mod' '' 1 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC
+UNKNOWN IMPLICIT-SAVE 0 0) (INTEGER 4 0 0 0 INTEGER ()) 0 0 () () 0 () ()
+() 0 0)
+)
+
+('limit' 0 2 'limit_is_built' 0 3 'limit_mod' 0 4 'nfact' 0 5)
diff --git a/problem1/IRPF90_temp/prob1 b/problem1/IRPF90_temp/prob1
new file mode 100644
index 0000000000000000000000000000000000000000..39f128a1264691e9bb19c4589a34161edb721df9
GIT binary patch
literal 12720
zcmc&)4RBo5b-uf+HL@(P*2c!NaqyPN#elU)vN5u;<0o5|pFsY>h)m4i(`t7mZCFWW
z_sKtC91&T-jxZG|?U0nF$_z=JDbw+^4K)t6B@7l&GI5xekU(dYq`(Se;>He<-NN=e
z_uaGm_Gy<go$2)M>^t{-_ndR@J@?*o-_QNVrj{nR%OyCu#a9GzkI&R3WL<^WzEH9X
zs~4q06HCNmF$0Jfe@&JUwQ@{Hm1(A>O3njXLV33W+?th9bg{*u1}kw3iBf&Jq^Yb$
zpP6T|Ooa$Yfb^)XBdUC4UYo?3#;HL_rCH+v$y4)4@2Ju{s`Qu!RQs87|EO>DU#!X(
zyESmcYeYn&yymF%1+eY!nGwpj&b0(u=V~&;biV})rmS}x^r)R*G;up`h{xJjt-K)~
zsgB2b`u0}utzT8WYGp9l8?2M<_roChZu8bVq-plYB5+hUxrJOu<riLg>3dIl9~(Nf
z;0GrfpZ)Ot-4A`-J_lvg6(9bb2qU|f;XfOHY74u47V?yo+eA6?GbNI{P<sj`HH6l@
zf&lrW%pq8zc(TENhsfu$e*+~oG<kA_1@aJ!82~9H|7S(;(jxZnD<c115&YXl>;xen
zz~7mk15l`)-zs9Kwg~={B6eDe$ghKZ0Dot?s)+n;5DYkliN`$d?C4FHiBJ#C-W9@V
zZrx%;qKRl{ENMm)ty?z6dwZg-q4s!G7)EDzZ;z2QLkZI`gmKGmV~3L47!M_r(WIqb
zSeffF!o5A=kO?!1SWl-gvUt)o646j(I$}i71RG4PO?E^RMy$t-c7pCn#7w&YEJ>)S
zVz?`m2!+wV>8erF=-p+;dVA0rd()hCI2&P?hK*37GfCd<CbzDVeh!C?ByqLG-QO3A
zbcf6?0%`~dTY}x8c)T|ZR}-XM-5rYch>k=wDmFK5+tIqCVXILaTxn-&#O9Xf4I7QR
zU|sM=3@gO}kNTBJj;<DBMIIV_TFY+yt+-MHdN6tsswLtGK#Dc}lJ|&zA|WIfevhd#
z;`<iG5N6!sbyfcM6>S8|7-Ek<Qwpcpr9`EiSkNXZ;T(quD7E1ns|okpaE^V1SK4rU
zJP+7#s)N%q8_qGE%4%%5JqFg>aE`Skui0>lxtw$xPO+NPb{lSw?O(Iu<abW`z(=L&
z&G48$@N(%%Muo`S*zOC6%+d(16-zYai0>kS$%zco(mRPKS5Kan{0`!2T1<{g{ubiN
z<&#Gwzkzsi_2h`;*AP!Go*b5Z9r5Ja$$rUSM?AT7a+l<<CZ1e5*(Ui##M2a*+%EaK
z#FI-WHOZF|Pp+J-k-VFDa^YkEyzKYSkvTp(M-wN=ZdwPMz8qbu9ZfGs&9$S_DZ{mA
zn^Ql#S5N&~ANcok+gqE*M<@K6(8tHlNiyCxQxoZ%p?qO@nC$99-ubfwLLVG8-I>#t
zjiU=H+r%AuwI4(unDXhV_x8B&Ie8TIO2G^FoS>r2M8%SR!j2Nh@?%pT$m^+>^sx`u
z>#oy!>XiPo&-$Q$jAZq}H%-?6wbJij_X{*Z^v$^gn&|^*+&!nfrvSOmpQQ2B2iECj
z5HPRIHet>kCywAQ3i6rL_e?$rmC4<>49lcH{81X78S<Wo8wW@GE`yK0hSAhhAL!$a
zRi)3ui=h5_XwP^_RX>r&suCK{bpL1Ycj|*<H2BA#TG%GiS6N89iRi;GljW0EJ$yZX
zvV&5vV#z^h331+0e#h;qMcjZ1)qph+b~YgMX(n@wrrPm~kb*|~Awpz(o<@5J86t$H
z!ST<O%uXOw@;%U@Y7h1M?18TjoOS(}X1zY}io0S-w*OrH+WhLN()8*7B16B_J@cQS
zX))ye1`#-J;G|1Gv~pNBBz>K#?(ax?^_jl!E63b*4+cz7cl}shL-P+ndGO7OgKttJ
zhSsehTZ5U3gTIix_g3Ps_pSx8CP(;7Iza=YF1<p3Y4u5SPx=N_G5C%??)_bP09ryE
z2<wN|{w3v(%DxR|^oqu*^rO_2!BIWs{Rsps4t^Phde}P!2FkC1%p_#o`#Q2xaoqcl
zx$HB@VgjM>-X9@5<n6>2bEhKx6^#41x0OX7ewn&<7xfd<>R|*8bnH%)QpX0bArs+s
z-z4SCffw|#58QdJ{MCPQE3bh_#o(PJe`tSI4Nc5?H89#TbPjw?zeQKdnfX3c8(x?(
zR}&3K=|SoRfmL^`963Gp{)wfa>5XKatQ{j3aJqq!^rMusS8^>x&OA81@+H8hRUZ4F
zD?fF~S^3M1q|2O@2dI72(rGniSm_vT3CEY9zv%}VOOGKpX<$Tn?GbGpn!j*XK#Y4m
zxKe5uxa2wz!Q_1jVM8C9e-flN(>OHyLu8KA;I|wq8Sdcqx@qvW1Iub(%krt;rOu6A
zTGH@`{g0I#D!B<0xN%A!7;`nOey#5}1E*Y#tKaJT=hV7y!x#l9%-4@fhh~2Z?BHwW
zhN1b(DfgziY{;9S98IE~80T@X0ai{u+P`w~0`urK%-%CURq+t~wGcb=Bh^Vq^r(hQ
z;5I)^0%!CXyNJj@)8+VPNKr&s4}|EW7L@^zEiB5nAOpZpr#RY-sA#iJS$G8{6bVpw
zDO<QQ--4W|ByY80i)zD<EzPv2KpPh4TaazI)soKzz4QypLIY71gtOx{<h^1h`PrPo
z`vvY3#^tiTSZeb)&lxP(9|FgMHLs?z8~5%8ODR3}2iPC?KB9Qq56_=;#&<mxuX?*B
z6{(ug4^{uQCxF?s^l2i%(=92p>Rd}|f7O(py1NQH>PPi0*S^<~`m{Oqi9YtJr#bcW
z^a`qF@T|GG_8r>aT2hx<QlB)Ye%p|l_pS`ItIs4p)Q9e_!uA}m^0y2{sw!KM3$zTG
zRm)n2C|(S_Tu<AK+{0-)$@Uk%(0y(5j_pmWYYa2mz3YZuiQe|wU@WmK2nZ^T_-E+u
zM<tq~^ruABuG@hJg{*26PaJq`k&hk8HGu}YSr5_ELZBlQi$^1CK*MGr8G9hQCa|oB
zm}~9E;<4^n&YI-bOR4q3b*1O#y{Mal!17NrnWsR@;kI`{*J2X92>Kl81<)5k%hAv`
zK&wDs#58LKU5-VyAM`oUr$EcGYyAV^m>T~AdN=4tppS!=AgDhBO7B|ezJQYJfgQrN
z*YCQr{Ib$v$W;NO={o%TOlAU9`20=2%3CUC?J4aS>lfX8-HNKK2__lx>0Y$Aoq)~0
za~}7dKH9M<k^Kn%%h0du325~BJ5Wmae*BL>56#FX!k@zbumfKX>^b~LfS&~w4L<)P
z?gn4wfM>I>zr_73UnP)+Y`xU}ckyq7pCVKNN(bDVeIq6Acgmz-<1C=E9VO`RVFcTU
z2vCXowHUY`(R?RiX!rePzS3KzmeudIDBq6q1)#Fuo(dN?fckMam18_;ixaIr|Lv;Z
zCh#ucG#|xwpZ{KkKMuSfxZNMrk7t4J1)d`L+aC8mGQ;p`O#_$xiTer9p%MafsjW<t
zjHW1;z=TXrYAAs5n1kQr;OQBV679v5x=J-kXUi+b6gO#<C}30K_k|QZDe=6Za7^j2
zdOt}1ro`pktv0s?REXbymgyxr<<^K~-+#SYV(}D>DOGwjN$G)u(p##%YS=`j1&jHL
zGU1Rgp`KTH4C<9WjVC33mRw-5qUJJ9<`}P3Jokg^o2lfP$MTc?d3A=Rk3CcJT<<x>
ze^-?&_5X9i?`fSC{ka<FA1L~~qNfynOVRfg{Y23jGp+tzq39ngx=PU|MZc=3vtB13
z_<v5=Pj<&5QG??9=8YQ>>Kmi&u~1K7W$>n8UG<IES{dOeLuvI2DnmwyU~*r#8EOYL
z6Bg~_9PKcPT_V`iYes_&8=9-lP^aQLd-{UyeKEXxjzvU}xUNvLO9UhPdSK6@X2L4j
z9Ze*$H{~$~$`a9dh!j+ASKJiASWgUBGrAYo4lpR|jfBjQ2u8b%jzp+CYIH@Q%bcZw
z_gsn4K1+l1Uk^hJ)<fN~Fskl_L0p2e7RzFLGAV-L-tKN}r_Q1MU-1-IXo>Q=5pE3}
zk^(rcSYU3iXa38`(As7F#cmB8;=2L@lFMB<E-_Mzj9q`NTa!g=m421vau=t*jv~4b
z<oes(8aV7*3ZT7^62~`=D{Q9`W!PGKS)b$MlmfW_PJL+<m#z5E!k_gyepaf0NbdtF
zQ6DMG^>ZBiDligdeU8Vkss?iWg@{bb9JAtH<S6#BKF7Q7ss>jnNp3&OF})Av6ib=s
zc>1bR*sk<>jJW*@77rjpO=W$K-<70*#Qo&@S)cKPkg@CYeo&+IdH*1N+9RF%PXHsI
zuzlW7<r_8NbWdncRF^%`J%L@nU&Y;iRndf97<s?qnbQ2S>(e_kN^NSxTFecWXii_T
z;ycLL^?Co_Pamz2c;B-)%U7HyI)Xpxv;Rlb{lkdT|9h0#Q^3w3e;9weK7aS)?}7Ur
z@=pIf@6bOzSCbm2)yJJT$ha*z+#yC$Mq|YH4}8BfqHY+R@=pE@=vLVD`F`l|7u0_n
zy3|CjpWYNwI`Ree{|&M<_gJ6z|D#Gjpaw=w=j{CD`SU(>?e+6_fVZze0g|)7%riX$
z8M{8;e@!U;ellW9tjF{M%Ix}W3)-Y~o4P@xX9jx;*cs$6;ZL@>{{g&cqExOHIN$F|
z5SIXF6wQEA{WT7p_3Irt$x>oU)12#;1?tkM>MvzMg*#Yjhu4l>-~UGzx4q1wSAnd?
zpZ%uH%k^2P{<iCtJ_ja?&9+;ypG!O>?bfErc(B@epS2g#S1R5=^YIewhngLdc@K8Z
zse<^7>~nx!$%9>t_osZkRPer&kIxjmpXB3Zg7=Ahd{*{(ARjN!J}2elvjxZNeB6il
ztJxu$_aIVme6<&P5Y;(u=Hqj4E<&?IGVj5cYmRgFLXWsS`@EKq&&xii<>T`aXWHzL
z%zMNYIR8-yUm!R>*p)okWqIA_;|m3^=X`vT;B}gh^HXLHrS;-Qgg)x<C#|~@@gKB&
z^Af!gcEO*cY99)y(jaIdd0JC0JWV?N&;*?7J?*IXE`^IS4Y^$EL6+n-2Tu1FE|Kdm
zum3-l`1El(rtGvi?3|MF)5rHc;D!1{aj_6i@16?b3xT`nsh{H~^eJ6aME>R?IDPUg
zWdF`0cvlhpp(1#(aeNZ;F06~E=V`LteEBPhPaj`8*CMc9c)w=(7p464`TvTN=lcVe
ze_P5=pZ^~NpNsi0flrx~IL3bld=C8FulBiqSqis9U=HSqru@(QQ9W>VE2AVWatrW4
z9%3;a5}&^A?k{5JNs0T!5!Ftv_lLl#J@jIo65n^7Q1WdRn#AS1Gvr=ZxR_<(U}gGO
zh5H@&gu;i_Ja1R>9{~4bU6(6AC|G<f<(bRT%dz>*Ef7~1N<1gWxphVGFmUScGDm+O
zQh2{=kFE^;g~Ep&^3NBs|3MLa1{~|hd~n9e%YjpS=(8>*_Wx3aYYuz^@PL%ezuZRh
z?uDXD%{MN+SK7(#J78t%Muz6Czg&~NeD{jngHnExc*arhcNE^HaGpPZtMCbj-(HvY
zrRluOMTz?aefp=Al2<%`;NiN^{QpuBya_nXpTnv>%8a;G%KNhCJQ?4i@P1YAGF1>#
zxKQ(ar^0)bedqjqK+3b#934@1_<lg$mWl5dkv|1IkW<g*eyQyA`!tF1yYAlrr}3p@
z4fgcgBKG~b9}L(9RsK5QbMaP~pI=#|1~|<_`kYS*!z5Fal=q2%TGwY4F2XnlWjk#q
z@;~6H16sk_U~T=X6(XE4lV%@|Bhb02TQ=@6TAFWf#R0Y4F*d{OHo|m}Eh+eLnhi2=
zPR!_x_qK=PM#St*B#lttUV-;hyW&wZ8VRndSzQOq1%wQGQ)a#QGVm@du@A?z=uKIq
zue*C6RBRj$tHtP87+#kt(OjRpdn0}EsQfmCZ&Y;ZD|}z}lT+UJCo1m3={$72zD{I|
zYzC5j-C0%6+lmW(fRf@i5vs%N?F)BBlUYlK(X^vs%O+#f)<!z{C%w%1ypG}cUgOTK
z4O^NwLdsSm4-E=qbIZ034K2pDrl#9BwHmDr8(KDzIeFMEoa~eSBt`aufp!^Nwlx}i
zy5teR0wvO0s45cOD-X$On*A)?=bdMymyy;HJNw~1>l7la<j&gF2x<_<Iuyr;J!8eH
zn`-M;uCA-InvO4e*=9=jiuQN}T_Rj6%8!OtHXaS_jvCf<hIUlG56wGgNJk*$xkX0{
zlxuQF5_1O?oswCZypxtrsRFL#vxn2&pG7b@m{r;SQa+Y6=!LXtb7J;zq~oAvUK>{O
zz*`4O>69bNZRZ%V<ZL74tQXoe|FcbzOs*}q=pkopB-v|pg?b`%j<tCkhCLGNG5V6x
z2n|N|Wqy$nwe@j&r3L3JIV`-ZuaHmjPOTR92rUI#Ji<B->TpYTe6wy=Ci9HdV0!gn
zIa(`^JE^86vowBaKVHZeS_rvAv<}PiM5=AtsspbMsX_;YX=$iRakiM_Nw!CPa@T2z
bP9<~X&OehZ-9!<@z6|9jb-4`XtPuYVcc}g|

literal 0
HcmV?d00001

diff --git a/problem1/IRPF90_temp/prob1.irp.F90 b/problem1/IRPF90_temp/prob1.irp.F90
new file mode 100644
index 0000000..c633653
--- /dev/null
+++ b/problem1/IRPF90_temp/prob1.irp.F90
@@ -0,0 +1,21 @@
+! -*- F90 -*-
+!
+!-----------------------------------------------!
+! This file was generated with the irpf90 tool. !
+!                                               !
+!           DO NOT MODIFY IT BY HAND            !
+!-----------------------------------------------!
+
+program irp_program                                                   ! prob1:   0
+ call prob1                                                           ! prob1.irp.f:   0
+ call irp_finalize_367124922()                                        ! prob1.irp.f:   0
+end program                                                           ! prob1.irp.f:   0
+subroutine prob1                                                      ! prob1.irp.f:   1
+  use sum_mod
+        implicit none                                                 ! prob1.irp.f:   3
+  character*(5) :: irp_here = 'prob1'                                 ! prob1.irp.f:   1
+  if (.not.sum_is_built) then
+    call provide_sum
+  endif
+        write(6,*)sum                                                 ! prob1.irp.f:   5
+end                                                                   ! prob1.irp.f:   7
diff --git a/problem1/IRPF90_temp/prob1.irp.f b/problem1/IRPF90_temp/prob1.irp.f
new file mode 100644
index 0000000..547c1ce
--- /dev/null
+++ b/problem1/IRPF90_temp/prob1.irp.f
@@ -0,0 +1,8 @@
+        program prob1
+
+        implicit none
+
+        write(6,*)sum
+
+        end
+
diff --git a/problem1/IRPF90_temp/prob1.irp.module.F90 b/problem1/IRPF90_temp/prob1.irp.module.F90
new file mode 100644
index 0000000..80c64de
--- /dev/null
+++ b/problem1/IRPF90_temp/prob1.irp.module.F90
@@ -0,0 +1,10 @@
+! -*- F90 -*-
+!
+!-----------------------------------------------!
+! This file was generated with the irpf90 tool. !
+!                                               !
+!           DO NOT MODIFY IT BY HAND            !
+!-----------------------------------------------!
+
+module prob1_mod
+end module prob1_mod
diff --git a/problem1/IRPF90_temp/prob1.irp.module.o b/problem1/IRPF90_temp/prob1.irp.module.o
new file mode 100644
index 0000000000000000000000000000000000000000..c23d5afad7b0ca8aaca0d4d97022715e596ed5c0
GIT binary patch
literal 934
zcmbtSO-sW-5S=vj>*z%U5$Z_=J5;fV9%P}my@)rD9+Gy!qDe}!f}Z>f{tSPbSAT)d
zBs*ra=A;9gdGF1<%<i(U<LgN$2tXo$OQ@Ns0Pi&fRbmAjunI68jV^izS2|uqY3~%z
z@T5OHtN;KOFNuj_$|kS!y&$8X4d6U75nx;tfU_(~bV^#98I9AM+kRo9*@H9pKX8Z4
zd@kB?BUFRcq+7!h?a`P0p{Fa43-$f`R9L6=SN{=tdH#Tw8_JShS0v269Fm6)E(`W^
z=Mo2tPozx({@%GJ{;@RL?E9H_ydI_>R+RU}ceF-}Gskw7=&iNSf3us~vVD^L`J(%o
y`?~P?<?GDDpWACz!`72<f7=bQzS8`GWg$)e70Wz}k8zPNG0Emnj~XZE1Na6-Q7(=E

literal 0
HcmV?d00001

diff --git a/problem1/IRPF90_temp/prob1.irp.o b/problem1/IRPF90_temp/prob1.irp.o
new file mode 100644
index 0000000000000000000000000000000000000000..455b7a935d17c59168424d933d0577ecaadf597b
GIT binary patch
literal 2696
zcmbtWJ8u&~5MIXy%*&VvP<YBkKp@D0%_9K;vV=(-iG(N!grHc?@i{pW-&uDTNN6C6
zC=d-2e}MvthMEE_B@(}Zj*b*5NRJfe+uL<EYrBDwc4zjRZ}u_!xO;i~&Tvm6!IUJ}
zO}5!mC}Vv+n|4u{MV4iIS$T17mH2PB0ejt?+mUas!Yse}RsLS;Ps1jiJpi5Re-$@V
z+es_lmlQR=QfVQvXK@8RFEcheIWc_o0*{<}<9s9VD|yQe8WuqmQeIk13%cmw8^#k&
zQOUXFo8_gIG<DQLN`!4BHyv2JTEEaEw{Bg_oh~^Q*Y<LktU;?VaQRGZAPVb(BwkFi
z#C$e!bkC0TI|}S0?3nN{R)HSL{7&{f%3y-<4FMxLi>j2#)`W*_D_p2Yc7=2l#Ck?q
zfir7ckux7Lt7=C!vnpZ8tiVSD^t_d)rXmqy2hm(ZF_<;w*Xxc)(VibU*2wt%0isMj
zl`+l?uLXA9!G!)_a?}O#hmF>yC>tUtnj@>(FppBfxiDpDXN-K5jtpsxgS<kJTgWLY
zz_qOf%sz;^y)wr-M-=q=ukm?`#rOp(x~TDw=pfnPLX^HOZ8LvOkVwS2iA_<P`707?
zt_j4SGJo@EkRX2;!_413!Y~)@+Ea@}PB14Lo0ZvqOfFDyM|H``_~SZAwuD={s$n|y
zh9c@<2kwHz%=s5({Dcv&*011*j86G`xGQF;bs>Mdsi=5${`M1Qo*hKuZGbGrs#TlI
zLff1>$bIraoR-dggzceXj*o5bG=5PM*U7JoIlk`GZSYcTeM85Toowx%LSmilI1|jT
zQ-*<yugTU<sFiGcO&G)a6Rp)VmeZn=8m__AkK9BZBs(c~(f|c6FOB9pL3XdU-iq{{
zByHYBxQboyu`c+NE_l!df8PcFM0l^3H}!6O?!sU0g8%4(v#lRwzY)2<7h3cw8oF{Z
zc5=pfI9KO&zskq%mW1twyfWv`MqoU1tBwE}pRV~q6xbdQBmO*aBd0x7BY_##oPfJt
z<V=&6A#J_zs_!|hZo8fq9Xb)WgXz$K<O&%5V(^;l*|Y8ohhMxhm@izqS}1TzgAjEh
za1HlT`Lhv=`X2y}w?W}KvLSdY^wWJ^pz&SDSyuc}iQ}Z|=V@Hy<Bd`L2O8e1;c6_*
v2Xj+=bpxQ)+d*dQe+K-6R22U(oFu^U-Y7grHU#(~DxGlnl<4c#ziod3WzQr2

literal 0
HcmV?d00001

diff --git a/problem1/IRPF90_temp/prob1_mod.mod b/problem1/IRPF90_temp/prob1_mod.mod
new file mode 100644
index 0000000..77b3ffd
--- /dev/null
+++ b/problem1/IRPF90_temp/prob1_mod.mod
@@ -0,0 +1,22 @@
+GFORTRAN module version '9' created from IRPF90_temp/prob1.irp.module.F90
+MD5:9050a620cdb8ca62969d3e2239d45f60 -- If you edit this, you'll get what you deserve.
+
+(() () () () () () () () () () () () () () () () () () () () () () () ()
+() () ())
+
+()
+
+()
+
+()
+
+()
+
+()
+
+(2 'prob1_mod' 'prob1_mod' '' 1 ((MODULE UNKNOWN-INTENT UNKNOWN-PROC
+UNKNOWN UNKNOWN 0 0) (UNKNOWN 0 0 0 0 UNKNOWN ()) 0 0 () () 0 () () () 0
+0)
+)
+
+('prob1_mod' 0 2)
diff --git a/problem1/IRPF90_temp/sum.irp.F90 b/problem1/IRPF90_temp/sum.irp.F90
new file mode 100644
index 0000000..ed69d9e
--- /dev/null
+++ b/problem1/IRPF90_temp/sum.irp.F90
@@ -0,0 +1,46 @@
+! -*- F90 -*-
+!
+!-----------------------------------------------!
+! This file was generated with the irpf90 tool. !
+!                                               !
+!           DO NOT MODIFY IT BY HAND            !
+!-----------------------------------------------!
+
+subroutine provide_sum
+  use sum_mod
+  use fact_mod
+  use limit_mod
+  implicit none
+  character*(11) :: irp_here = 'provide_sum'
+  integer                   :: irp_err 
+  logical                   :: irp_dimensions_OK
+  if (.not.limit_is_built) then
+    call provide_limit
+  endif
+  if (.not.fact_is_built) then
+    call provide_fact
+  endif
+ if (.not.sum_is_built) then
+  call bld_sum
+  sum_is_built = .True.
+
+ endif
+end subroutine provide_sum
+
+subroutine bld_sum
+  use sum_mod
+  use fact_mod
+  use limit_mod
+    implicit none                                                       ! sum.irp.f:   2
+  character*(3) :: irp_here = 'sum'                                     ! sum.irp.f:   1
+    integer :: i,j                                                      ! sum.irp.f:   8
+   sum=0                                                                ! sum.irp.f:   9
+    do i=1,limit-1                                                      ! sum.irp.f:  10
+        do j=1,nfact                                                    ! sum.irp.f:  11
+            if(MOD(i,fact(j)).eq.0)then                                 ! sum.irp.f:  12
+                sum=sum+(i)                                             ! sum.irp.f:  13
+                EXIT                                                    ! sum.irp.f:  14
+            endif                                                       ! sum.irp.f:  15
+        enddo                                                           ! sum.irp.f:  16
+    enddo                                                               ! sum.irp.f:  17
+end subroutine bld_sum
diff --git a/problem1/IRPF90_temp/sum.irp.f b/problem1/IRPF90_temp/sum.irp.f
new file mode 100644
index 0000000..0daf114
--- /dev/null
+++ b/problem1/IRPF90_temp/sum.irp.f
@@ -0,0 +1,19 @@
+BEGIN_PROVIDER [integer, sum]
+    implicit none
+    BEGIN_DOC
+    ! calculates the sum of the factors of
+    ! two integers between 1 to limit
+    END_DOC
+
+    integer :: i,j
+   sum=0
+    do i=1,limit-1
+        do j=1,nfact
+            if(MOD(i,fact(j)).eq.0)then
+                sum+=i
+                EXIT
+            endif
+        enddo
+    enddo
+
+END_PROVIDER
diff --git a/problem1/IRPF90_temp/sum.irp.module.F90 b/problem1/IRPF90_temp/sum.irp.module.F90
new file mode 100644
index 0000000..961d405
--- /dev/null
+++ b/problem1/IRPF90_temp/sum.irp.module.F90
@@ -0,0 +1,12 @@
+! -*- F90 -*-
+!
+!-----------------------------------------------!
+! This file was generated with the irpf90 tool. !
+!                                               !
+!           DO NOT MODIFY IT BY HAND            !
+!-----------------------------------------------!
+
+module sum_mod
+  integer :: sum 
+  logical :: sum_is_built = .False.
+end module sum_mod
diff --git a/problem1/IRPF90_temp/sum.irp.module.o b/problem1/IRPF90_temp/sum.irp.module.o
new file mode 100644
index 0000000000000000000000000000000000000000..e77ce97a0b12e9b9031587dccd4790d70a00bf4e
GIT binary patch
literal 1025
zcmbtQ%}T>S5S}#kr^kW^L4<lz!LCItq6dle@8ZwNqlBal7;F;hZa`1Ij*sDE_y}Ho
z0-Z^B%w~-z2X^QCnc3Ohm(k_8;W)tIz&VtRRe;wLf>&S<TCfT*84S)kd&4M<gS2xj
zPQ+2SzrO?kLOv%d2r;Y0GT$>&(USr(3se9iloG@=OOhx>EzMLUCfB!Jse<W)G50@k
z3!CX(c;iZV6;_gF2@AA?JN3Jk?pd6v-M@>*I<CL^$uq<5KR}b__sk;1p61(@PPG)A
z`vxuyz1^9_z}&}D8-aay^0<G*g*w~)#2Z!((GM-YYmfe64Hy5%rq)}S>*l{{@j};e
zvgfmIXR2$$=a;P$cYl7b>bkWrq58TTlD<+sKr<I7+p&Q{+c<|S4z<plGsrv<@#0Y=
e*({$&Vtm>I-$&6$!N0m07C4rEn8$PV+k$WSLqH7x

literal 0
HcmV?d00001

diff --git a/problem1/IRPF90_temp/sum.irp.o b/problem1/IRPF90_temp/sum.irp.o
new file mode 100644
index 0000000000000000000000000000000000000000..ba5bbcec18b70b7448866914d8867af4d48d927a
GIT binary patch
literal 2328
zcmbu9Pe>F|7{K4SmaCa-QW06~N)SdmxM7qMqB-jJ*AO~%nr7Wu9NO8n-Py1R3${Io
zNFE|OcJ5S!hc2;VltNV4t*aNq4rPZd0{gx<@6*RP+o3*~dEfW@{=N6+y}8qOzQ00I
z7>UBV*rr94u{8;HbKK2pSvAupccS%X8)xw9Dg0E%uf`@hh)wQ6-WOfeT<{Xh#HLP7
zhr;*J!}^M)@k7ytB-s<I6JKY4g@4?>Us+sqnqq}nrKe*)zg&2&XdUnJAG8Tx@%vmT
zd>8Y3lvUxHSy>8&S*-9S=uWA);GA~bL!oB3eX*1eEn}KHUp|?_tKeKxrT)<p_piJc
z^~s*WtbyL%&PcOn#w{ZqX;)9E$6AjcaTRo<>~;sH+!|uaSiRC%TNRv!KJ~y42;Y<#
z_rcgE^eZ@Ob@kV4>VoHXfUf3l+Kv&2(aE~w2x(a}WvGrh<}fv3I0jSWxg1l6Gq!D}
zfu%E!sSaGc+?sQY;cHCg;pT{*%o?^S+Wq$sfeN^N+dY-Kh5gyXas9G1f>9|0p+Bv1
zm6KQ;qy`>TgJ^)@o}nCu2YCPuNm@jngt+SM)dCc2{%d{|a<LVCKTx?)|APd?NYkRR
z6FBK|=ovrg6FVqag`5ofC6OQVaN0k@XF>7q3Hp{rAgv4cA3q7@)Bf)Q=G{9$?2+it
z&ocrc-esZfojZoEiAl|i1iT8^+uOeym|y>rIFR1+=j{*azJhU;?AyAZGvNEha2|d$
zLGHK1$i275?H1rWy|r_IZTwv~ocPymkmf`Gl)b>ccMX&9y!-L4GJL2E9|4Yir(r~)
z@0<tSul|EF{8<_PwhaGNhO=DWR;}!)+TYQ};;DoVw$5}tW!aXa+nI!ZVNi1|py(t9
zI*_C>ycveZmfSR_quI<2D`Ebnyl&<6c-~53g)LQOr)LtIF6zOv8CmX1VEJ6=q~YDc
zJMeqm71U9X<DFd-d_O`E<an1Tz6l`+aXP6-UCenc=oFumIMyfrP~vqGe=PBk#GgnU
r&kNOgE^)l;#9v4p<7r(VC650hieHj=gTx~e$2F6*3k4ZIbgusZdc{9c

literal 0
HcmV?d00001

diff --git a/problem1/IRPF90_temp/sum_mod.mod b/problem1/IRPF90_temp/sum_mod.mod
new file mode 100644
index 0000000..fec3c04
--- /dev/null
+++ b/problem1/IRPF90_temp/sum_mod.mod
@@ -0,0 +1,26 @@
+GFORTRAN module version '9' created from IRPF90_temp/sum.irp.module.F90
+MD5:2062756ca08c72ef516ad2ce64c3e19d -- If you edit this, you'll get what you deserve.
+
+(() () () () () () () () () () () () () () () () () () () () () () () ()
+() () ())
+
+()
+
+()
+
+()
+
+()
+
+()
+
+(2 'sum' 'sum_mod' '' 1 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN
+IMPLICIT-SAVE 0 0) (INTEGER 4 0 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0)
+3 'sum_is_built' 'sum_mod' '' 1 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC
+UNKNOWN IMPLICIT-SAVE 0 0) (LOGICAL 4 0 0 0 LOGICAL ()) 0 0 () () 0 () ()
+() 0 0)
+4 'sum_mod' 'sum_mod' '' 1 ((MODULE UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN
+UNKNOWN 0 0) (UNKNOWN 0 0 0 0 UNKNOWN ()) 0 0 () () 0 () () () 0 0)
+)
+
+('sum' 0 2 'sum_is_built' 0 3 'sum_mod' 0 4)
diff --git a/problem1/Makefile b/problem1/Makefile
new file mode 100644
index 0000000..4602bb7
--- /dev/null
+++ b/problem1/Makefile
@@ -0,0 +1,12 @@
+IRPF90 = irpf90  #-a -d
+FC     = gfortran
+FCFLAGS= -O2
+
+SRC=
+OBJ=
+LIB=
+
+include irpf90.make
+
+irpf90.make: $(wildcard *.irp.f)
+	$(IRPF90)
diff --git a/problem1/README.md b/problem1/README.md
new file mode 100644
index 0000000..2f685bb
--- /dev/null
+++ b/problem1/README.md
@@ -0,0 +1,7 @@
+PROBLEM 1
+----------
+
+* If we list all the natural numbers below 10 that are multiples of 3 or 5, we
+  get 3, 5, 6 and 9. The sum of these multiples is 23.
+
+  Find the sum of all the multiples of 3 or 5 below 1000.
diff --git a/problem1/fact.irp.f b/problem1/fact.irp.f
new file mode 100644
index 0000000..9d6f82a
--- /dev/null
+++ b/problem1/fact.irp.f
@@ -0,0 +1,14 @@
+BEGIN_PROVIDER [integer, fact, (nfact)]
+    BEGIN_DOC
+    ! enter the factors
+    END_DOC
+
+    implicit none
+    integer :: i
+
+    write(6,*)'enter',nfact,'integers'
+    do i=1,nfact
+        read(5,*)fact(i)
+    enddo
+
+END_PROVIDER
diff --git a/problem1/inp b/problem1/inp
new file mode 100644
index 0000000..cfb7179
--- /dev/null
+++ b/problem1/inp
@@ -0,0 +1,4 @@
+10000
+2
+3
+5
diff --git a/problem1/irpf90.make b/problem1/irpf90.make
new file mode 100644
index 0000000..d4c7de5
--- /dev/null
+++ b/problem1/irpf90.make
@@ -0,0 +1,43 @@
+SRC += IRPF90_temp/irp_stack.irp.F90 IRPF90_temp/irp_touches.irp.F90 IRPF90_temp/prob1.irp.F90 IRPF90_temp/prob1.irp.module.F90 IRPF90_temp/fact.irp.F90 IRPF90_temp/fact.irp.module.F90 IRPF90_temp/sum.irp.F90 IRPF90_temp/sum.irp.module.F90 IRPF90_temp/limit.irp.F90 IRPF90_temp/limit.irp.module.F90
+OBJ += IRPF90_temp/irp_stack.irp.o IRPF90_temp/fact.irp.o IRPF90_temp/fact.irp.module.o IRPF90_temp/sum.irp.o IRPF90_temp/sum.irp.module.o IRPF90_temp/limit.irp.o IRPF90_temp/limit.irp.module.o
+OBJ1 = $(patsubst %, IRPF90_temp/%,$(notdir $(OBJ))) IRPF90_temp/irp_touches.irp.o 
+ALL = prob1
+ALL_OBJ = prob1.irp.module.o prob1.irp.o
+ALL_OBJ1 = $(patsubst %, IRPF90_temp/%,$(notdir $(ALL_OBJ)))
+all:$(ALL)
+	@$(MAKE) -s move
+prob1: IRPF90_temp/prob1.irp.o IRPF90_temp/prob1.irp.module.o $(OBJ1)
+	$(FC) -o $@ IRPF90_temp/$@.irp.o IRPF90_temp/$@.irp.module.o $(OBJ1) $(LIB)
+	@$(MAKE) -s move
+IRPF90_temp/prob1.irp.o: IRPF90_temp/prob1.irp.module.o  IRPF90_temp/sum.irp.module.o 
+IRPF90_temp/fact.irp.o: IRPF90_temp/fact.irp.module.o  IRPF90_temp/limit.irp.module.o 
+IRPF90_temp/sum.irp.o: IRPF90_temp/sum.irp.module.o  IRPF90_temp/limit.irp.module.o  IRPF90_temp/fact.irp.module.o 
+IRPF90_temp/limit.irp.o: IRPF90_temp/limit.irp.module.o  
+IRPF90_temp/irp_touches.irp.o:  IRPF90_temp/fact.irp.o IRPF90_temp/fact.irp.o  IRPF90_temp/sum.irp.o IRPF90_temp/sum.irp.o  IRPF90_temp/limit.irp.o IRPF90_temp/limit.irp.o
+IRPF90_temp/%.irp.module.o: IRPF90_temp/%.irp.module.F90
+	$(FC) $(FCFLAGS) -c IRPF90_temp/$*.irp.module.F90 -o IRPF90_temp/$*.irp.module.o
+IRPF90_temp/%.irp.o: IRPF90_temp/%.irp.module.o IRPF90_temp/%.irp.F90
+	$(FC) $(FCFLAGS) -c IRPF90_temp/$*.irp.F90 -o IRPF90_temp/$*.irp.o
+IRPF90_temp/%.irp.o: IRPF90_temp/%.irp.F90
+	$(FC) $(FCFLAGS) -c IRPF90_temp/$*.irp.F90 -o IRPF90_temp/$*.irp.o
+IRPF90_temp/%.o: %.F90
+	$(FC) $(FCFLAGS) -c $*.F90 -o IRPF90_temp/$*.o
+IRPF90_temp/%.o: %.f90
+	$(FC) $(FCFLAGS) -c $*.f90 -o IRPF90_temp/$*.o
+IRPF90_temp/%.o: %.f
+	$(FC) $(FCFLAGS) -c $*.f -o IRPF90_temp/$*.o
+IRPF90_temp/%.o: %.F
+	$(FC) $(FCFLAGS) -c $*.F -o IRPF90_temp/$*.o
+IRPF90_temp/%.irp.F90: irpf90.make
+
+move:
+	@mv -f *.mod IRPF90_temp/ 2> /dev/null | DO_NOTHING=
+
+clean:
+	rm -rf $(EXE) $(OBJ1) $(ALL_OBJ1) $(ALL)
+
+veryclean:
+	- $(MAKE) clean
+
+	- rm -rf IRPF90_temp/ IRPF90_man/ irpf90.make irpf90_variables dist
+
diff --git a/problem1/irpf90_entities b/problem1/irpf90_entities
new file mode 100644
index 0000000..2eb2510
--- /dev/null
+++ b/problem1/irpf90_entities
@@ -0,0 +1,4 @@
+fact.irp.f                : integer, allocatable      :: fact                      (nfact)
+limit.irp.f               : integer                   :: limit                     
+limit.irp.f               : integer                   :: nfact                     
+sum.irp.f                 : integer                   :: sum                       
diff --git a/problem1/limit.irp.f b/problem1/limit.irp.f
new file mode 100644
index 0000000..d61342a
--- /dev/null
+++ b/problem1/limit.irp.f
@@ -0,0 +1,11 @@
+BEGIN_PROVIDER [integer, limit]
+&BEGIN_PROVIDER [integer, nfact]
+    BEGIN_DOC
+    ! enter limit
+    END_DOC
+    write(6,*)'limit?'
+    read(5,*)limit
+    write(6,*)'nfact?'
+    read(5,*)nfact
+
+END_PROVIDER
diff --git a/problem1/prob1 b/problem1/prob1
new file mode 100755
index 0000000000000000000000000000000000000000..12065c3279d5f14fcb458e7fd87d70d61d76283e
GIT binary patch
literal 12720
zcmc&)4|G)3nZGlWf$(oKAV@$eQw=Mq852Mn6zU6v@Pgrw7<yI|-%MsEWa=b?GcSOO
zG&ZDlPDJC@?zUaq&7RZl!Bfs2x?5djT?m52dh9Oc?6z3lb7);;Qlw?Y+UTy%{=WO}
zH}mFY#(MUgJ$vW8_ucPzzwf*Ee)rz*zW3&SWld|d+vO6R+~SLZxF;rQ60+_>Y?>ok
zg*Avup^5ooo|pi{i%XLwM6DdtVP%?WrIPc2R#4up0Jmmk6rE>rsKH9yLZVb(A!#aW
z(Pw8`EK?x@5+FTl>yRoRni-Nf(*!jLsWNXoAbDyY=^a*jhm{`FfNDQe?jQAyu6e3_
zo?8P)yhcPc$$NoHUjW;5-i%VdZH6V#Hbavcrh6<{FlD{FphxZetclxsOCsLBZ0RkD
zXl)|i-Lt!Pcf+#UWlMwUWN@);zaIw4cWXCnk*3)nbHP#F<Q8%rm7iaC@ZmS!zL0(@
z{A1(6<fY5c-TT7k=_sSF_;7I|jO<RtH4PWFh21^{c}mJ{Vk+{JBvQChdrBoWgx0)*
z0QqCGL$FHmWP>k<$fvSDgpwMXB00hWMTo`pfs~T}W*NM)jQt17$e%BRf4hvGAmjtM
zoarEdQtkY+GIr|A;6E*6r?rgyO2`LrIn%Xe<nMxDz$r{T=JEE9WXep1yJ_|=5k^bf
zdLtT3#kR-OW-QgVesv<*9cv4>Ct|`dws$4FjkFm~nT8>ZbvupCN^W%`oKDBmmU?Mr
zuE&TZyCY!}W>WF)?ZU|8Y12r>!qM@F5k(VhFts+_5lb2IZZozWbXO{F+67=qLS+>r
zo#9kCg8q$HjhRMrhZ#?HqcirVIqPsX!Y&OP;nemtdAEz)x=i{x5;4-m)f4w%PdM5Y
zHaiKZBOqc4c7+p(WCX4zNV&Qz9Pbt#saQ;`ZQi)KZFA!WqdvIQ&eVyutu3oo8;gUB
zgSTQ>DGqqluR?Nkw-77x(BRWrcH^?*N*(CF*oRQ95QhL#tm&1!NBk2BA-V8-T$K^u
zGdGSf;})-}^0QZm2$nI#9)HFZPO(dgN;xq*Bq`w>hX|;&;T)?8_uFueeS}xraC<xt
z*l?<Y(?T20F`dflY`8rJHrQ~EwIr|EaEiH{bQ?~wn$sp5ZjbGMYQxFzob<kTE3<3i
zF}?3(<q1ZG$lcoR3y9o;DDGABHROozB!SU$Iiv+!i6>W&o|gP(;%Qop4oiL=@#ON+
zLy})bJh^&wNb<K4Pc9xEl>B1i$+e@slE0C7a_Q&}$zMl2xpFil`MJc?6d2tk`5DBM
zOGh=yPbQvRIa()qH}T}c(Exba?_VHuba=WZj*;E04mNugx>P@$U4feGhow^n>o2ur
zes;f}`L*8nAD1_^wTuj3_G>~PIWC~8kBo#SX(D?&l;0m5B)j^6ch<Ck(EEo?ckZ-h
z<M8b2kl3Qv`a$%*F`u3}zstSt#9`Dc1>fIxjEZvSs^<3+c9=MpKR)Jxyq<YkKmMCL
zbk}J;b4vf&Cq2+VLb7`Q8I$#Yt@L|WzJVr)p6Oelnca)VZ9C;X1;};f1dXTOw^E-B
z0rQ%C6Q*xDb_h>Vkk6goHu?xuMt9;iD3ku!yIFW<z<UL5>>uu#2p`dC>X{4rNK;Ma
z_u&dq|4g)Jq@t#mNK;J(jc2y^6ZkuG;Rp@>(P!p_MD|(>$u<*x>?Bz}Vb#O;D<?WA
z1*_)ogO(6i9OYZ?RxRQNoKp?B4Z_X_<UY>jj?h#)`XP;2=0f&SLS%csh4v6KKnP8P
zqn{|5dw@{MUxN<RdZ^!*_I|nVlItI7*6V$*xU1&p`_I*{D6XC=&7S^mGW1K`GwVs3
z76aa|5P{?RPPp{_O9y2`vNx*g{*I)VU+npTa?HKkFkphZ>&NOEn6($m{b#E7ouNhy
ztXx92`g2wL-jKZaPU3I!t^lznN91!lL4Ct6y-I(1`3ZAZ_7+sp|E50TeQ#<2T0-oN
z==)cEmvV<?-}-ZURnu7Z>(rF~VLjvhDFmzbU5`RN;vEA6<ySx^5i;U^4Oyu;;{At0
z_E}^xfzWsF^T-Z(x8shvQ<eQ9#(l)w#-fj%q^{jd{lv6-8bJdc+lo@^SpN-VBC_(U
zq@3IPqJI2>yQr1F`Y&$f4G^j7-%9fP_tezU#B5Llqb)?|z}NL!bg7(~??AQj#R)Ss
z(Ri3%q+S$Qbw{Qmr)S<dwg5D{nyizxBg6vEHZqd^I_2z@EP}|zN5)q^ANaV+<A1#J
zQy)1iKgmdTva|94wU1gluBIF-9ic7Z=zR1y`v_y%<H(H~7!h83M4JYt&6yGqBVG^g
zlp6a!bnOjc^1h6)p%2VD0kWq4Ow)jO6uF~v^!KkA<n_9ye|Ycp^*`xgKJ#AY^6`)6
z|6$Kl6^K@!*ZYpU8kfJ?lkGd@YFhr!J*S&8v%U*E6r6fxb*}eR(eoGIrget6Ixy|4
z5b6JkxoTk6Jj$Ih7Y=yaDMyp41>-*A-3V4ThW4{U{J^|=5wrQ?zbO0Q7eVae^QzO1
zXi^Io!Hs^J6wYY!qYn`&X!;yo3n_{aw*Vo!%c3$MvW2<D7Gyv;HpbCsNJXDoW#M_0
zP-H;em2BafVheKOlDyT1^{Nd&v^29<N?4dzY(ci+c1x}h1hda63-v@*P|lCvfOo<q
z^0PUC_YXWbjL2m?T50n*&mk<}Zv)2yHm{?x8}W94rIh{AA7FpPyHoMBKVCWEjQ4sb
zQFFF66RkO?@2~v}Pe8QpU+_2);MvxUS#!BHv!`ZE&)ipo9roRZ)<x$VGat8PKG2VU
z>}kpTB6~g6(tpXESN|sMcdeO^S~DLsWq#L~oB5Uuyvr}9exncESA*?3QR8nNh}KlM
zA{S^KFl!dJ4p98)JJ~?nj@;8}I?481H+rsZ*}SQFd7WX#x^~>MBb98g55`kFf`A~>
zgeyl+KPu6bq>B<!yKV<w6!NMuym8>QMZR{VZwoZi!+MzB76KjNcp?_P4K!i~((#95
zw*?k<6SK%}ED`UD7pzI{4k>kqa9!iMeK+c+AaL^sx!g0LQ{kq!Kv!VUUjjV{`abAO
zpi|M%*FkGQU&4fI1HBoGXb<tA&w$RuuJvQk6_^VD3Yq|Y7xY=s3Iz3op!BVUo(m|s
z9^NcmyZx?frcSIJgj@|Unx2Ed&*jd63ZK8(SG}%k%C5>@amU=-Z(LGy9l<0+KHZJ>
zwiB?{ciH3K>Z2W-64{U9T8Mt#L_m|z-+@xX_ux7NJv1Yq2!96G0SA6Fu!FdUfL{U?
zjXwX^+>O5KKF?ZTZ-x6;zG@(i`Fg4SZ{Z5TPf@A>rG4(TzM%^Do0Fwr(-fex9Tn*B
z0R-Fq1gJ#)ng=|9Xnqf2X!nDYeU*1gEvw%vP#!}0Y*5*6PnC-sK>fIn$}t|a#fdhb
z|8CW96Zmf6G#|w#pZ|V^KLLCYxZNMrkM9G29C(K0?|Q=fwF!n#Ywnx)l>14~{t5yM
zDKuG=jHW1;z=TXrYAAs5xP#y2;OQNZ679v5Ix96vr^!3MgW@5L5(Q{V{JoHZB_*C0
z6n-fkP~Qj1-;}tVyA^V4K!y1IC%GiiF}Fq}|NZOL3X7-cOR3tUNlGsqlzy(-tA<Tf
zTd<g=C=(6|=hXWuk3oadr}3o3?~=1ER@6<@WRCG_#dANnzDY`+c`QHKpI0YX`q(2S
z&-Gqb{P$G3QvW|E{GHZW(Vwev{u@PKQ1q0dKUee}ML$q<!X&GIS1bA_iY`;MS<x>k
z>a5qv2mYTE_LH6QXw0DazIOF$g!-mfdpz77SQ`97aB=Oei>!=rl%ceC36&uuL@@nO
zml<vcHB%Pt<Q(lVsU0HNoit;?##Jq~W_Y{ews-dg+k4{p^c;_hAaR}Hbf*YLAL@oZ
zi<&8`WM?du#@<xK7${4{5@AwMxg7~p1moRt+|Af-+&jRaEEx@(VG)dV8Xc){SIp>)
zLYFy91K+t);fE{@&VM-qF<1|G#UrRX34^!=Wi6J)_H<eVBgw8VY^Tnl{a^7ES7?dy
zx)E*-9FhV!u2^7UuV?;xWN7WO{yet^4)I+90m&6^9G4iWN5-zd!mY`o6-vKGa)p~y
zUq=x=_i_Cpw+0UTh5~3Wq{Q)!;|kkpLK(K!B<pj098&=I->EN+;<f?T6kM#&@v~Y5
zMEV{`iTX%cuAk%Bmw=Hd>vKGQRW*>~FGOTg=9m@tBS*21^*P>sPc^tkNpkyHj_Cs^
zr&!87$J1Ap!X~B9W5n%Ouy`05YAWk<{H`ViB<?5I&-#q-gN$9D_k%j6&-(}I(;n&6
ze-aq^gzfWwD!-@!r)NTYqPpyfo(b&wy(;eZs*29pg^~9wo+-^QyFPt0qZCpb*3H~t
zi5Bz~E53t_U7z>=C+JTrB;NNd&hi!Ki4Nf+efIy5dVUyE`hSlydkWYY<PYGo>+}D9
z{D0schrH8&FF5p1&(NgCY4zvM>tx)P9PSXqD5Ejr=Lde?8Bz}nPI)K)I&`aS`usd}
z;4|u<g)TLb>!&Y;ln#AH{eOon%{|uV{r|Ai52%4r(>XtXdH%cuU3>lfKfu|mQGn#^
zFY`<<LdLGo&tK=1elHoZCDvp5KFaL+q1hoR9a0Zy^v+;U0Xu{IN4Urq_die_0*B{Y
zwZQp#SAw_&IHPC|l<Kc@;H=-^z)6-8Q<~;nw=7V%CRKkW3o6{fN;|xE?E3!CTim9}
z7QGf^IWG2_GB4L>sro}VDSZx17MpLkVn3C5NZPH9lks4+^FC`Yq<^V+|18EUuper6
zNaj7*Imb%k6Y}o?b|nvXG2Wkw@k+t_PBA`7@P1N^PZqpS6ysC!?*qm7)cku=F+NRj
zye`Ilh`*X0l6emz1;<x=p$Ac&<7P2F9p@r6J0$ZS{BzB5&R*ydSLNT=it(BG_q1Ys
z7UE3E4#~VnT#fS|rSRE;<AYtvgI$)_eK9^q@Om!B=L%k@#W=rZ7EoF*ZbazA4u8_R
zs}TQ5%eN@e7hxCtIjr`ffGQ1wmXfD6<-*&f(+|zSsov9$dhb=Zn5-dJNZrViyyn2^
z`NAa%{pI!l4T+B*mm|tf$YJM{lpjC7=Yf~%7sbU=IDLC6h0g)*qPKpIpU|gtLmBzo
z%i#2vXDRzz%ix`5@JGww<;L-8$h)vEzBN;m?dIEGNqqeH(zzCa^}_o#%fBS$$It&)
zlsrElu>4smKYsrI7WfRz2l_{o636&YfKP{?d(}SID@);a2u#O3(UkvrKWYH39%YoI
zMb-fi6d@MVA@T9+?!hv4o|d>z46Al>z0U!s_RxoPO8ne)Ov&%4(j+dwogw#{!o?H|
z2P@ORDctYC&nbLR&GU98e*w53>w2p4gM!6xr95*5dKEUm871QC9Elg?IJdG49sy4M
zUFhiVqYCd;?a`H?zf}03L;i&__AivdC&00O%m-(jyb3tAhyK>3#QtBPaLs|Q0v?c(
z#kadi-aSWjs`<vH_e(p4eFv;eUC7Y9^-t9#FTcGa_lT6AE1q@K`yGXc6wdSKZxw#d
z;kVbMeQCPr_MyamXsjmjj4GXkm+MmV|8r&VX5ch`4yg8UC3i}BU;dmY<C_&esOJAd
zRS;IVU(NG-6yB}uJLl)aQl70A=#a9*&jaeQO#GmX{3+mpf_gspOJ%3mr%7zTDtQ|?
zjV~Q*u&3XZvG2$8V8AY@@;3sXfv>{+{>mbCz-b=R-}#g<Ofoe~d7lWVb$v<UB7$R3
zw$o;!_zxU)Kr2`utZ!JhL_|_%+U&t`1UfghZuMrPwdL+M98fD9V>8SyBSHt+(t;1C
z*&qYw#Ek8UWP3PaM9pL>ZG?Mv3w)p2k%*bGXmDBG^2M-RLdc*mW!85u1K+Yz58;>=
zeJP9fbag!h6&r`cYH>OihR<b6w9u!nWV9y{lmAWOKPo!)6?q{4ms8RIPgLBA(|PE4
z!(x#yvKdJCbmdh!Z!0eG2b2`IiBKJ8vM16ROXn>aM)T&z^=phZ8=C0kpY$^4i#mqm
zdrkLjXk6d28dA0rd1z1=Yg;$2YHT$&HaFkBrp;(;T-CaU%*n%Uk#vvrCn>TQ47AHw
zzp=^K)hUnol_-(kLRHb&Zh1&f)9h#AKJ7dseT=k@*x3*7S*H+TrEu1+PEdm|*5L&H
z*fW+a`$GNVrOOvDwwjKA^zzM=?iKBcD7r+rRFr=jTG>P_yfbE4(;3<^`8~AgoFN^7
zl;;*5El{p097!x3RCG$_Wr|K(I;BdulFuHFcYhwi;9yqe`%C$F+Mo~8rp<}@!;y}I
zmPKt?$^&m5D5X=5D7T$s#FDd(kh5NB)BMjjMKXo9*rJD=vC(wW=nQv9=^SgzMhts2
z-fi@xV^JE6{Kxz<BWmm8_)1I8S8`ZnM^7oA6rEZv?GaiEw0MMd9Ms{K{P^bGtV|Xe
ztHbo_#&Wb)9(PhrOJ-^O(0+W7FSQT~hiDy^<%v|=v{eUQ9a5zZ2-DI~mEvqM$CG@I
g_~fqB5}ius$X$FUS-OcLh<zE#ztrV2l(Rzo53f`MivR!s

literal 0
HcmV?d00001

diff --git a/problem1/prob1.irp.f b/problem1/prob1.irp.f
new file mode 100644
index 0000000..547c1ce
--- /dev/null
+++ b/problem1/prob1.irp.f
@@ -0,0 +1,8 @@
+        program prob1
+
+        implicit none
+
+        write(6,*)sum
+
+        end
+
diff --git a/problem1/sum.irp.f b/problem1/sum.irp.f
new file mode 100644
index 0000000..0daf114
--- /dev/null
+++ b/problem1/sum.irp.f
@@ -0,0 +1,19 @@
+BEGIN_PROVIDER [integer, sum]
+    implicit none
+    BEGIN_DOC
+    ! calculates the sum of the factors of
+    ! two integers between 1 to limit
+    END_DOC
+
+    integer :: i,j
+   sum=0
+    do i=1,limit-1
+        do j=1,nfact
+            if(MOD(i,fact(j)).eq.0)then
+                sum+=i
+                EXIT
+            endif
+        enddo
+    enddo
+
+END_PROVIDER