Hi<div><br></div><div> I have a problem, in the following program, at the first loop there is no error (and when I run the program with only 1 loop there is no error), but when I try to run for the second loop there is an error like this:</div>
<div><div><font class="Apple-style-span" face="'courier new', monospace">[hx002:02844] *** An error occurred in MPI_Init</font></div><div><font class="Apple-style-span" face="'courier new', monospace">[hx002:02844] *** on communicator MPI_COMM_WORLD</font></div>
<div><font class="Apple-style-span" face="'courier new', monospace">[hx002:02844] *** MPI_ERR_OTHER: known error not in list</font></div><div><font class="Apple-style-span" face="'courier new', monospace">[hx002:02844] *** MPI_ERRORS_ARE_FATAL (goodbye)</font></div>
<div><font class="Apple-style-span" face="'courier new', monospace">[hx002:02846] *** An error occurred in MPI_Init</font></div><div><font class="Apple-style-span" face="'courier new', monospace">[hx002:02846] *** on communicator MPI_COMM_WORLD</font></div>
<div><font class="Apple-style-span" face="'courier new', monospace">[hx002:02846] *** MPI_ERR_OTHER: known error not in list</font></div><div><font class="Apple-style-span" face="'courier new', monospace">[hx002:02846] *** MPI_ERRORS_ARE_FATAL (goodbye)</font></div>
<div><font class="Apple-style-span" face="'courier new', monospace">[hx002:02847] *** An error occurred in MPI_Init</font></div><div><font class="Apple-style-span" face="'courier new', monospace">[hx002:02847] *** on communicator MPI_COMM_WORLD</font></div>
<div><font class="Apple-style-span" face="'courier new', monospace">[hx002:02847] *** MPI_ERR_OTHER: known error not in list</font></div><div><font class="Apple-style-span" face="'courier new', monospace">[hx002:02847] *** MPI_ERRORS_ARE_FATAL (goodbye)</font></div>
<div><font class="Apple-style-span" face="'courier new', monospace">[hx002:02851] *** An error occurred in MPI_Init</font></div><div><font class="Apple-style-span" face="'courier new', monospace">[hx002:02851] *** on communicator MPI_COMM_WORLD</font></div>
<div><font class="Apple-style-span" face="'courier new', monospace">[hx002:02851] *** MPI_ERR_OTHER: known error not in list</font></div><div><font class="Apple-style-span" face="'courier new', monospace">[hx002:02851] *** MPI_ERRORS_ARE_FATAL (goodbye)</font></div>
<div><font class="Apple-style-span" face="'courier new', monospace">[hx002:02845] *** An error occurred in MPI_Init</font></div><div><font class="Apple-style-span" face="'courier new', monospace">[hx002:02845] *** on communicator MPI_COMM_WORLD</font></div>
<div><font class="Apple-style-span" face="'courier new', monospace">[hx002:02845] *** MPI_ERR_OTHER: known error not in list</font></div><div><font class="Apple-style-span" face="'courier new', monospace">[hx002:02845] *** MPI_ERRORS_ARE_FATAL (goodbye)</font></div>
<div><font class="Apple-style-span" face="'courier new', monospace">[hx002:02848] *** An error occurred in MPI_Init</font></div><div><font class="Apple-style-span" face="'courier new', monospace">[hx002:02848] *** on communicator MPI_COMM_WORLD</font></div>
<div><font class="Apple-style-span" face="'courier new', monospace">[hx002:02848] *** MPI_ERR_OTHER: known error not in list</font></div><div><font class="Apple-style-span" face="'courier new', monospace">[hx002:02848] *** MPI_ERRORS_ARE_FATAL (goodbye)</font></div>
<div><font class="Apple-style-span" face="'courier new', monospace">[hx002:02849] *** An error occurred in MPI_Init</font></div><div><font class="Apple-style-span" face="'courier new', monospace">[hx002:02849] *** on communicator MPI_COMM_WORLD</font></div>
<div><font class="Apple-style-span" face="'courier new', monospace">[hx002:02849] *** MPI_ERR_OTHER: known error not in list</font></div><div><font class="Apple-style-span" face="'courier new', monospace">[hx002:02849] *** MPI_ERRORS_ARE_FATAL (goodbye)</font></div>
<div><font class="Apple-style-span" face="'courier new', monospace">[hx002:02850] *** An error occurred in MPI_Init</font></div><div><font class="Apple-style-span" face="'courier new', monospace">[hx002:02850] *** on communicator MPI_COMM_WORLD</font></div>
<div><font class="Apple-style-span" face="'courier new', monospace">[hx002:02850] *** MPI_ERR_OTHER: known error not in list</font></div><div><font class="Apple-style-span" face="'courier new', monospace">[hx002:02850] *** MPI_ERRORS_ARE_FATAL (goodbye)</font></div>
</div><div><font class="Apple-style-span" face="arial, helvetica, sans-serif">The program is as follows:</font></div><div><div><font class="Apple-style-span" face="'courier new', monospace"><span class="Apple-tab-span" style="white-space: pre; "> </span>program ringtopo</font></div>
<div><font class="Apple-style-span" face="'courier new', monospace"> <span class="Apple-tab-span" style="white-space:pre"> </span> include 'mpif.h'</font></div><div><font class="Apple-style-span" face="'courier new', monospace"><br>
</font></div><div><font class="Apple-style-span" face="'courier new', monospace"><span class="Apple-tab-span" style="white-space:pre"> </span> integer numtasks, rank, next, prev, buf(2), tag1, tag2, ierr</font></div>
<div><font class="Apple-style-span" face="'courier new', monospace"><span class="Apple-tab-span" style="white-space:pre"> </span> integer stats(MPI_STATUS_SIZE,2), reqs(2),reqs1(2)</font></div><div><font class="Apple-style-span" face="'courier new', monospace"><br>
</font></div><div><font class="Apple-style-span" face="'courier new', monospace"><span class="Apple-tab-span" style="white-space:pre"> </span>integer,parameter::buf_size=130</font></div><div><font class="Apple-style-span" face="'courier new', monospace"><span class="Apple-tab-span" style="white-space:pre"> </span>real CRXi(10000),CP_sendx(buf_size)</font></div>
<div><font class="Apple-style-span" face="'courier new', monospace"><span class="Apple-tab-span" style="white-space:pre"> </span>real CP_S6(6,buf_size),CP_R6(6,buf_size),xi(100000)</font></div><div><font class="Apple-style-span" face="'courier new', monospace"><span class="Apple-tab-span" style="white-space:pre"> </span>real yi(100000),zi(100000),ui(100000),vi(100000),wi(100000)</font></div>
<div><font class="Apple-style-span" face="'courier new', monospace"><span class="Apple-tab-span" style="white-space:pre"> </span>real CP_sendy(buf_size),CP_sendz(buf_size),CP_sendu(buf_size)</font></div><div><font class="Apple-style-span" face="'courier new', monospace"><span class="Apple-tab-span" style="white-space:pre"> </span>real CP_sendv(buf_size),CP_sendw(buf_size)</font></div>
<div><font class="Apple-style-span" face="'courier new', monospace"><span class="Apple-tab-span" style="white-space:pre"> </span>real CRYi(10000), CRZi(10000), CRUi(10000), CRVi(10000)</font></div><div><font class="Apple-style-span" face="'courier new', monospace"><span class="Apple-tab-span" style="white-space:pre"> </span>real CRwi(10000)</font></div>
<div><font class="Apple-style-span" face="'courier new', monospace"><span class="Apple-tab-span" style="white-space:pre"> </span>integer CP_send,CP_recv,ionsR,Max_p,n_p,LABEL_p,ions,loop</font></div><div><span class="Apple-tab-span" style="white-space:pre"><font class="Apple-style-span" face="'courier new', monospace"> </font></span></div>
<div><font class="Apple-style-span" face="'courier new', monospace"> <span class="Apple-tab-span" style="white-space:pre"> </span> tag1 = 1</font></div><div><font class="Apple-style-span" face="'courier new', monospace"> <span class="Apple-tab-span" style="white-space:pre"> </span> tag2 = 2</font></div>
<div><font class="Apple-style-span" face="'courier new', monospace"><span class="Apple-tab-span" style="white-space:pre"> </span>do loop=1,2</font></div><div><font class="Apple-style-span" face="'courier new', monospace"><span class="Apple-tab-span" style="white-space:pre"> </span>ions=5000</font></div>
<div><font class="Apple-style-span" face="'courier new', monospace"><span class="Apple-tab-span" style="white-space:pre"> </span>do i=1,10000</font></div><div><font class="Apple-style-span" face="'courier new', monospace"><span class="Apple-tab-span" style="white-space:pre"> </span> CRxi(i)=i*1.0</font></div>
<div><font class="Apple-style-span" face="'courier new', monospace"><span class="Apple-tab-span" style="white-space:pre"> </span> CRyi(i)=i*2.0</font></div><div><font class="Apple-style-span" face="'courier new', monospace"><span class="Apple-tab-span" style="white-space:pre"> </span> CRzi(i)=i*3.0</font></div>
<div><font class="Apple-style-span" face="'courier new', monospace"><span class="Apple-tab-span" style="white-space:pre"> </span> CRui(i)=i*4.0</font></div><div><font class="Apple-style-span" face="'courier new', monospace"><span class="Apple-tab-span" style="white-space:pre"> </span> CRvi(i)=i*5.0</font></div>
<div><font class="Apple-style-span" face="'courier new', monospace"><span class="Apple-tab-span" style="white-space:pre"> </span> CRwi(i)=i*6.0</font></div><div><font class="Apple-style-span" face="'courier new', monospace"><span class="Apple-tab-span" style="white-space:pre"> </span>end do</font></div>
<div><font class="Apple-style-span" face="'courier new', monospace"> <span class="Apple-tab-span" style="white-space:pre"> </span> call MPI_INIT(ierr)</font></div><div><font class="Apple-style-span" face="'courier new', monospace"> <span class="Apple-tab-span" style="white-space:pre"> </span> call MPI_COMM_RANK(MPI_COMM_WORLD, rank, ierr)</font></div>
<div><font class="Apple-style-span" face="'courier new', monospace"> <span class="Apple-tab-span" style="white-space:pre"> </span> call MPI_COMM_SIZE(MPI_COMM_WORLD, numtasks, ierr)</font></div><div><font class="Apple-style-span" face="'courier new', monospace"><br>
</font></div><div><font class="Apple-style-span" face="'courier new', monospace"><span class="Apple-tab-span" style="white-space:pre"> </span> prev = rank - 1</font></div><div><font class="Apple-style-span" face="'courier new', monospace"><span class="Apple-tab-span" style="white-space:pre"> </span> next = rank + 1</font></div>
<div><font class="Apple-style-span" face="'courier new', monospace"> <span class="Apple-tab-span" style="white-space:pre"> </span> if (rank .eq. 0) then</font></div><div><font class="Apple-style-span" face="'courier new', monospace"> <span class="Apple-tab-span" style="white-space:pre"> </span> prev = numtasks - 1</font></div>
<div><font class="Apple-style-span" face="'courier new', monospace"> <span class="Apple-tab-span" style="white-space:pre"> </span> endif</font></div><div><font class="Apple-style-span" face="'courier new', monospace"> <span class="Apple-tab-span" style="white-space:pre"> </span> if (rank .eq. numtasks - 1) then</font></div>
<div><font class="Apple-style-span" face="'courier new', monospace"> <span class="Apple-tab-span" style="white-space:pre"> </span> next = 0</font></div><div><font class="Apple-style-span" face="'courier new', monospace"> <span class="Apple-tab-span" style="white-space:pre"> </span> endif</font></div>
<div><font class="Apple-style-span" face="'courier new', monospace"><br></font></div><div><font class="Apple-style-span" face="'courier new', monospace"><span class="Apple-tab-span" style="white-space:pre"> </span>ionsR=1120</font></div>
<div><font class="Apple-style-span" face="'courier new', monospace"><br></font></div><div><font class="Apple-style-span" face="'courier new', monospace">C do some work</font></div><div><font class="Apple-style-span" face="'courier new', monospace"><span class="Apple-tab-span" style="white-space:pre"> </span>Max_p=ionsR/buf_size+1 </font></div>
<div><font class="Apple-style-span" face="'courier new', monospace"><span class="Apple-tab-span" style="white-space:pre"> </span>LABEL_p=0</font></div><div><font class="Apple-style-span" face="'courier new', monospace"><span class="Apple-tab-span" style="white-space:pre"> </span>CP_recv=20</font></div>
<div><font class="Apple-style-span" face="'courier new', monospace"><span class="Apple-tab-span" style="white-space:pre"> </span>print*,CP_recv,Max_p,35335</font></div><div><font class="Apple-style-span" face="'courier new', monospace"><span class="Apple-tab-span" style="white-space:pre"> </span>do 200 n_p=1,Max_p</font></div>
<div><font class="Apple-style-span" face="'courier new', monospace"><span class="Apple-tab-span" style="white-space:pre"> </span>CP_send=0</font></div><div><font class="Apple-style-span" face="'courier new', monospace"><span class="Apple-tab-span" style="white-space:pre"> </span>do i=1,buf_size</font></div>
<div><font class="Apple-style-span" face="'courier new', monospace"><span class="Apple-tab-span" style="white-space:pre"> </span>n=LABEL_p+i</font></div><div><font class="Apple-style-span" face="'courier new', monospace">C<span class="Apple-tab-span" style="white-space:pre"> </span>CP_S6(1,i)=CRXi(n)</font></div>
<div><font class="Apple-style-span" face="'courier new', monospace"><span class="Apple-tab-span" style="white-space:pre"> </span>CP_sendx(i)=CRXi(n)</font></div><div><font class="Apple-style-span" face="'courier new', monospace"><span class="Apple-tab-span" style="white-space:pre"> </span>CP_sendy(i)=CRyi(n)</font></div>
<div><font class="Apple-style-span" face="'courier new', monospace"><span class="Apple-tab-span" style="white-space:pre"> </span>CP_sendz(i)=CRzi(n)</font></div><div><font class="Apple-style-span" face="'courier new', monospace"><br>
</font></div><div><font class="Apple-style-span" face="'courier new', monospace"><span class="Apple-tab-span" style="white-space:pre"> </span>CP_sendu(i)=CRui(n)</font></div><div><font class="Apple-style-span" face="'courier new', monospace"><span class="Apple-tab-span" style="white-space:pre"> </span>CP_sendv(i)=CRvi(n)</font></div>
<div><font class="Apple-style-span" face="'courier new', monospace"><span class="Apple-tab-span" style="white-space:pre"> </span>CP_sendw(i)=CRwi(n)</font></div><div><font class="Apple-style-span" face="'courier new', monospace"><span class="Apple-tab-span" style="white-space:pre"> </span>end do</font></div>
<div><font class="Apple-style-span" face="'courier new', monospace"><span class="Apple-tab-span" style="white-space:pre"> </span>CP_send=buf_size</font></div><div><font class="Apple-style-span" face="'courier new', monospace"><span class="Apple-tab-span" style="white-space:pre"> </span>if(n.gt.ionsR)then</font></div>
<div><font class="Apple-style-span" face="'courier new', monospace"><span class="Apple-tab-span" style="white-space:pre"> </span>CP_send=ionsR - LABEL_p</font></div><div><font class="Apple-style-span" face="'courier new', monospace"><span class="Apple-tab-span" style="white-space:pre"> </span>if (CP_send.lt.0) CP_send=-CP_send</font></div>
<div><font class="Apple-style-span" face="'courier new', monospace"><span class="Apple-tab-span" style="white-space:pre"> </span>end if</font></div><div><font class="Apple-style-span" face="'courier new', monospace"><span class="Apple-tab-span" style="white-space:pre"> </span>LABEL_p=n</font></div>
<div><font class="Apple-style-span" face="'courier new', monospace"><br></font></div><div><font class="Apple-style-span" face="'courier new', monospace"><span class="Apple-tab-span" style="white-space:pre"> </span>do i=1,buf_size</font></div>
<div><font class="Apple-style-span" face="'courier new', monospace"><span class="Apple-tab-span" style="white-space:pre"> </span>CP_S6(1,i)=CP_sendx(i)</font></div><div><font class="Apple-style-span" face="'courier new', monospace"><span class="Apple-tab-span" style="white-space:pre"> </span>CP_S6(2,i)=CP_sendy(i)</font></div>
<div><font class="Apple-style-span" face="'courier new', monospace"><span class="Apple-tab-span" style="white-space:pre"> </span>CP_S6(3,i)=CP_sendz(i)</font></div><div><font class="Apple-style-span" face="'courier new', monospace"><br>
</font></div><div><font class="Apple-style-span" face="'courier new', monospace"><span class="Apple-tab-span" style="white-space:pre"> </span>CP_S6(4,i)=CP_sendu(i)</font></div><div><font class="Apple-style-span" face="'courier new', monospace"><span class="Apple-tab-span" style="white-space:pre"> </span>CP_S6(5,i)=CP_sendv(i)</font></div>
<div><font class="Apple-style-span" face="'courier new', monospace"><span class="Apple-tab-span" style="white-space:pre"> </span>CP_S6(6,i)=CP_sendw(i)</font></div><div><font class="Apple-style-span" face="'courier new', monospace"><span class="Apple-tab-span" style="white-space:pre"> </span>end do</font></div>
<div><font class="Apple-style-span" face="'courier new', monospace"><br></font></div><div><font class="Apple-style-span" face="'courier new', monospace"><br></font></div><div><font class="Apple-style-span" face="'courier new', monospace"><br>
</font></div><div><font class="Apple-style-span" face="'courier new', monospace"><br></font></div><div><font class="Apple-style-span" face="'courier new', monospace"><br></font></div><div><font class="Apple-style-span" face="'courier new', monospace"><br>
</font></div><div><font class="Apple-style-span" face="'courier new', monospace">C<span class="Apple-tab-span" style="white-space:pre"> </span>print*,mreal,mint,lgrp,CP_send,reqs,1111114</font></div><div><font class="Apple-style-span" face="'courier new', monospace">C<span class="Apple-tab-span" style="white-space:pre"> </span>print*,rank,MPI_INTEGER,CP_recv,CP_send,11111113</font></div>
<div><font class="Apple-style-span" face="'courier new', monospace">C<span class="Apple-tab-span" style="white-space:pre"> </span>print*,rank,MPI_INTEGER,CP_R6(6,10),CP_s6(6,10),11111113</font></div><div><font class="Apple-style-span" face="'courier new', monospace"><span class="Apple-tab-span" style="white-space:pre"> </span>print*,loop</font></div>
<div><font class="Apple-style-span" face="'courier new', monospace"><br></font></div><div><font class="Apple-style-span" face="'courier new', monospace"> <span class="Apple-tab-span" style="white-space:pre"> </span> call MPI_IRECV(CP_recv, 1, MPI_INTEGER, prev, tag1, </font></div>
<div><font class="Apple-style-span" face="'courier new', monospace"> & MPI_COMM_WORLD, reqs(1), ierr)</font></div><div><font class="Apple-style-span" face="'courier new', monospace"> <span class="Apple-tab-span" style="white-space:pre"> </span> call MPI_ISEND(CP_send, 1, MPI_INTEGER, next, tag1,</font></div>
<div><font class="Apple-style-span" face="'courier new', monospace"> & MPI_COMM_WORLD, reqs(2), ierr)</font></div><div><font class="Apple-style-span" face="'courier new', monospace"><br></font></div>
<div><font class="Apple-style-span" face="'courier new', monospace"> <span class="Apple-tab-span" style="white-space:pre"> </span> call MPI_WAITALL(2, reqs, stats, ierr); </font></div><div><font class="Apple-style-span" face="'courier new', monospace"><br>
</font></div><div><font class="Apple-style-span" face="'courier new', monospace"> <span class="Apple-tab-span" style="white-space:pre"> </span> call MPI_IRECV(CP_R6, 6*CP_recv, MPI_REAL, prev, tag2, </font></div>
<div><font class="Apple-style-span" face="'courier new', monospace"> & MPI_COMM_WORLD, reqs1(1), ierr)</font></div><div><font class="Apple-style-span" face="'courier new', monospace"> <span class="Apple-tab-span" style="white-space:pre"> </span> call MPI_ISEND(CP_S6, 6*CP_send, MPI_REAL, next, tag2,</font></div>
<div><font class="Apple-style-span" face="'courier new', monospace"> & MPI_COMM_WORLD, reqs1(2), ierr)</font></div><div><font class="Apple-style-span" face="'courier new', monospace"><br></font></div>
<div><font class="Apple-style-span" face="'courier new', monospace">C<span class="Apple-tab-span" style="white-space:pre"> </span> call MPI_WAITALL(2, reqs1, stats, ierr);</font></div><div><font class="Apple-style-span" face="'courier new', monospace"><br>
</font></div><div><font class="Apple-style-span" face="'courier new', monospace"><span class="Apple-tab-span" style="white-space:pre"> </span>print*,rank,LABEL_p,CP_R6(6,10),CP_s6(6,10),11111114</font></div><div><font class="Apple-style-span" face="'courier new', monospace"><br>
</font></div><div><font class="Apple-style-span" face="'courier new', monospace"><span class="Apple-tab-span" style="white-space:pre"> </span>if (CP_recv.gt.0) then</font></div><div><font class="Apple-style-span" face="'courier new', monospace"><span class="Apple-tab-span" style="white-space:pre"> </span>do n=1,CP_recv</font></div>
<div><font class="Apple-style-span" face="'courier new', monospace"><span class="Apple-tab-span" style="white-space:pre"> </span>ions=ions+1</font></div><div><font class="Apple-style-span" face="'courier new', monospace"><span class="Apple-tab-span" style="white-space:pre"> </span>xi(ions)=CP_R6(1,n)</font></div>
<div><font class="Apple-style-span" face="'courier new', monospace"><span class="Apple-tab-span" style="white-space:pre"> </span>yi(ions)=CP_R6(2,n)</font></div><div><font class="Apple-style-span" face="'courier new', monospace"><span class="Apple-tab-span" style="white-space:pre"> </span>zi(ions)=CP_R6(3,n)</font></div>
<div><font class="Apple-style-span" face="'courier new', monospace"><br></font></div><div><font class="Apple-style-span" face="'courier new', monospace"><span class="Apple-tab-span" style="white-space:pre"> </span>ui(ions)=CP_R6(4,n)</font></div>
<div><font class="Apple-style-span" face="'courier new', monospace"><span class="Apple-tab-span" style="white-space:pre"> </span>vi(ions)=CP_R6(5,n)</font></div><div><font class="Apple-style-span" face="'courier new', monospace"><span class="Apple-tab-span" style="white-space:pre"> </span>wi(ions)=CP_R6(6,n)<span class="Apple-tab-span" style="white-space:pre"> </span></font></div>
<div><font class="Apple-style-span" face="'courier new', monospace"><br></font></div><div><font class="Apple-style-span" face="'courier new', monospace"><span class="Apple-tab-span" style="white-space:pre"> </span>end do</font></div>
<div><font class="Apple-style-span" face="'courier new', monospace"><br></font></div><div><font class="Apple-style-span" face="'courier new', monospace"><span class="Apple-tab-span" style="white-space:pre"> </span>else</font></div>
<div><font class="Apple-style-span" face="'courier new', monospace"><span class="Apple-tab-span" style="white-space:pre"> </span>print*,n_p,777777771,888888881</font></div><div><font class="Apple-style-span" face="'courier new', monospace"><span class="Apple-tab-span" style="white-space:pre"> </span>End if</font></div>
<div><font class="Apple-style-span" face="'courier new', monospace"><br></font></div><div><font class="Apple-style-span" face="'courier new', monospace">C110 <span class="Apple-tab-span" style="white-space:pre"> </span>continue</font></div>
<div><font class="Apple-style-span" face="'courier new', monospace">C.......................</font></div><div><font class="Apple-style-span" face="'courier new', monospace"><br></font></div><div><font class="Apple-style-span" face="'courier new', monospace">200<span class="Apple-tab-span" style="white-space:pre"> </span>continue</font></div>
<div><font class="Apple-style-span" face="'courier new', monospace"><br></font></div><div><font class="Apple-style-span" face="'courier new', monospace"><span class="Apple-tab-span" style="white-space:pre"> </span>end do</font></div>
<div><font class="Apple-style-span" face="'courier new', monospace"><br></font></div><div><font class="Apple-style-span" face="'courier new', monospace"><span class="Apple-tab-span" style="white-space:pre"> </span> call MPI_FINALIZE(ierr)</font></div>
<div><font class="Apple-style-span" face="'courier new', monospace"><br></font></div><div><font class="Apple-style-span" face="'courier new', monospace"> <span class="Apple-tab-span" style="white-space:pre"> </span> end</font></div>
<div><font class="Apple-style-span" face="'courier new', monospace"><br></font></div><div><font class="Apple-style-span" face="arial, helvetica, sans-serif">Kind Regards</font></div><div><font class="Apple-style-span" face="arial, helvetica, sans-serif">Sincerely</font></div>
<div><font class="Apple-style-span" face="arial, helvetica, sans-serif">Amin</font></div><div style="font-family: arial, helvetica, sans-serif; "><br></div><div style="font-family: arial, helvetica, sans-serif; "><br></div>
<div style="font-family: arial, helvetica, sans-serif; "><br></div><div style="font-family: arial, helvetica, sans-serif; "><br></div><div style="font-family: arial, helvetica, sans-serif; "><br></div></div><div><br></div>